[vb6] Codifica html

[Beziel]

Gente avendo delle stringhe codificate in html tipo "città" come faccio a visualizzarli in maniera corretta?


tnx!!!

[ale500]

città non è codificato....

096776871nbjh5g54ui5101h5 se vuol dire città è codificato.....

non è che invece che averle già codificate sei tu che le vuoi codificare...del tipo città deve diventare citt & a g r a v e...

spiegati meglio

[Beziel]

L'avevo scritto codificato solo che ovviamente l'html lo ha interpretato ecco qua: citt& #224; senza spazio ovviamente

[ale500]

fai un controllo sulle stringhe e se ad esempio una parte della stringa è & # 2 2 4 lo sostituisci con la à

[Beziel]

Si ma mi servirebbe x tutti i caratteri devo inserire x tutti i vari codici ascii?

[Beziel]

Questo è pezzo di codice del mitico Francesco Balena, però manca la parte x il controllo dei caratteri accentati come posso aggiungerla?

Function HTMLDecode(ByVal html As String) As String
Dim i As Long
HTMLDecode = html
Do
' ricerca il carattere & successivo, esci se non ce ne sono
i = InStr(i + 1, HTMLDecode, "&")
If i = 0 Then Exit Do
' controlla se si tratta di un carattere speciale
If StrComp(Mid$(HTMLDecode, i, 6), "", vbTextCompare) = 0 Then
HTMLDecode = Left$(HTMLDecode, i - 1) & " " & Mid$(HTMLDecode, _
i + 6)
ElseIf StrComp(Mid$(HTMLDecode, i, 6), """, vbTextCompare) = 0 Then
HTMLDecode = Left$(HTMLDecode, i - 1) & """" & Mid$(HTMLDecode, _
i + 6)
ElseIf StrComp(Mid$(HTMLDecode, i, 5), "&", vbTextCompare) = 0 Then
HTMLDecode = Left$(HTMLDecode, i - 1) & "&" & Mid$(HTMLDecode, _
i + 5)
ElseIf StrComp(Mid$(HTMLDecode, i, 4), "<", vbTextCompare) = 0 Then
HTMLDecode = Left$(HTMLDecode, i - 1) & "<" & Mid$(HTMLDecode, _
i + 4)
ElseIf StrComp(Mid$(HTMLDecode, i, 4), "&gt;", vbTextCompare) = 0 Then
HTMLDecode = Left$(HTMLDecode, i - 1) & ">" & Mid$(HTMLDecode, _
i + 4)
End If
Loop
End Function

[ale500]

prova a guardare la funzione replace..io non ci ho capito molto (a dir la verità non mi funzia) ma potrebbe essere una valida alternativa al tuo problema

[Beziel]

Dovrei costruirmi la parte che trasforma il codice ascii nel carattere corrispondente

[ale500]

esatto...innanzitutto ti consiglio di farti un giro nel forum di HTML e cercarti la tabella di conversione....

fai una breve ricerca e vedrai che la trovi...

poi postala qui che vediamo di aiutarti....(le conversioni non me le ricordo tutte a memoria)...

[Beziel]

Ecco qua mi aiutate adesso x favore:

http://www.ascii.cl/htmlcodes.htm

tnx!!!