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é.

[Marc-L]

A l'arrache, une autre approche par une fonction d'environ cinq lignes de code :

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
Function TextOnly$(ByVal T$, Optional S$ = "<", Optional E$ = ">")
         Do
             D& = InStr(T, S)
             If D Then F& = InStr(D, T, E): If F Then T = Replace$(T, Mid$(T, D, F - D + 1), "")
         Loop While D * F
 
         TextOnly = T
End Function
 
Sub Demo()
    S$ = "<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>"
 
    MsgBox TextOnly(S)
End Sub

__________________________________________________________
Quelle époque terrible que celle où des idiots dirigent des aveugles. (Shakespeare)

[patricktoulon]

bonjour

ta demande est de récupérer le texte sans les balises html
si tu va te promener dans les contributions tu trouvera une de mes contribution nommée

code source d'une page sur le net
une partie du code fait exactement ce que tu cherche

parfois une recherche peut etre tres fructueuse

et encore mieux!!! cet exemplaire recupere le texte avec ou sans balise d'une classe dans une page html
fonction getclassName sur un page du net

voila voila


Au plaisir