Discussion :

[EngueEngue]

Messieurs bonjour,

Je cherche à traduire un fichier excel en chinois... Idée, traducteur google.

Je fais joujou avec mais quand je récupère ma string traduite quand j'ai plusieurs mots j'ai des trucs du genre :

<SPAN class=hps closure_uid_919448237="4">Real estate</SPAN> <SPAN class=hps closure_uid_919448237="5">development and investment</SPAN> <SPAN class=hps closure_uid_919448237="6">index</SPAN>

Or je ne veux que

Real estate development and investment index

J'ai pensé à la fonction split avec "<" comme argument... Mais vomme les iud changent à chaque fois...

Qui a une idée brillante ?

Bien à vous,
E

[pc75]

Bonjour,

Tu as un bout de code à nous montrer ?

[EngueEngue]

J'arrive à virrer facilement les fermetures de spans avec un replace..

Mais les ouvertures me posent problèeme, tout d'abord parce que ce IUD est variable et parce que mon nombre de balises est variable...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
t
ag = span
s = s.Replace(s.Substring(InStr(LCase(s), "<" & tag) - 1, InStr((InStr(LCase(s), "<" & tag) + 1), s, ">") - InStr(LCase(s), "<" & tag) + 1), "")

mais ne marche pas...

Le bout de code qui fait la traduction de mes cells c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    If .Cells(lig, col) <> "" Then
   Siteweb = "http://translate.google.fr/#zh-CN/en/" & .Cells(lig, col)
 
    Set ie = CreateObject("InternetExplorer.Application")
 
 
 
        ie.navigate Siteweb
        ie.Visible = True
 
        waitIE ie
 
         wait3secs
 
         DoEvents
 
          'x = Split(Application.WorksheetFunction.Substitute(ie.Document.getElementById("result_box").innerHTML, "</SPAN>", ""), "<")
x = ie.Document.getElementById("result_box").innerHTML

Si je vous demande de l'aide c'est parce que je n'ai pas de code opérationnel...

[pc75]

Re,

Et si tu utilises innerText au lien de innerHTML ?

[Marc-L]

Bonjour EngueEngue,

au cas où la proposition précédente ne te convienne pas, avec l'exemple du message initial,
un code limite de débutant de cinq lignes au maximum peut extraire le texte …

[Theze]

Bonjour,

Avec un code basique peut être ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub Extraire()
 
    Dim Chaine As String
    Dim Texte As String
    Dim Pos1 As Integer
    Dim Pos2 As Integer
    Dim I As Integer
 
    Chaine = "<SPAN class=hps closure_uid_919448237=""" & 4 & """>Real estate</SPAN> <SPAN class=hps closure_uid_919448237=""" & 5 & """>development and investment</SPAN> <SPAN class=hps closure_uid_919448237=""" & 6 & """>index</SPAN>"""
 
    For I = 1 To Len(Chaine)
 
        Pos1 = InStr(I, Chaine, ">") + 1
        Pos2 = InStr(Pos1, Chaine, "<")
 
        If Pos1 = Len(Chaine) Then Exit For
 
        Texte = Texte & Mid(Chaine, Pos1, Pos2 - Pos1)
 
        I = Pos2
 
    Next I
 
    MsgBox Texte
 
End Sub

Hervé.