Konverter HTML "ascii" koder til tegn

du kan jo bruge en liste, en lykke, og så en replace.

Denne her har jeg lige skrevet;

Public Function FjernASCII(kode As String)
  Dim FilNummer As Integer
  Dim Filnavn, Linje, ACSII, Resultat As String
  Dim splitKomma
 
  FilNummer = FreeFile
  Filnavn = "c:\acsiiordliste.txt"
 
  Open Filnavn For Input As #FilNummer
    Do
    Line Input #FilNummer, Linje
    splitKomma = Split(Linje, " ")
    Resultat = Replace(splitKomma(0), ",", "")
    ACSII = splitKomma(1)
    kode = Replace(kode, ACSII, Resultat)
    Loop Until EOF(FilNummer)
   
  MsgBox kode
End Function



c:\acsiiordliste.txt har en syntakst der ser sådan her ud:
[resultat][mellemrum][acsii]

eksepel

. …


Du må selv ud på nettet og lede efter en liste. Hvis du tilfældigvis finde en med en anden syntakst, burde det ikke være så vanskeligt at skrive koden om.

Vh. Casper

Hov denne:
Resultat = Replace(splitKomma(0), ",", ""
skal rettes til:
Resultat = Replace(splitKomma(0), " ", ""

Okay, jeg burde måske have indledt med, at jeg godt kender til proceduren omkring search/replace funktionen - jeg bruger en regular expression til at søge efter "&#([0-9]+);".

Der findes ingen decideret "liste" over disse koder, da det er "almindelige" tegnkoder, men problemet er at VB ikke kan håndtere disse gennem Chr() funktionen.

hvis det kan hjælpe så er her en liste over dem du ikke kan bruge Chr() til:

De starter fra 338-8482
http://www.w3schools.com/html/html_entitiesref.asp

Jeg har lavet en lille stump kode som du kan bygge vider på..


Private Sub Form_Load()
'Me.Caption = Entities(710)

'Sådan kan du finde nummert, kopier "Result" fra tabellen: _
http://www.w3schools.com/html/html_entitiesref.asp _
og indset det tegn Asc("HER") og nu vil den vise det nummer _
som tegnet bruger, så skal du bare indtaste det i koden (Entities)

Me.Caption = Asc("˜") '<- &#732;

End Sub

Public Function Entities(ByVal Number As Integer) As String
  Select Case Number
        Case 0 To 255
          Entities = Chr$(Number)
        Case 338: Entities = Chr$(140)
        Case 339: Entities = Chr$(156)
        Case 352: Entities = Chr$(138)
        Case 353: Entities = Chr$(154)
        Case 376: Entities = Chr$(159)
        Case 710: Entities = Chr$(136)
        Case 732: Entities = Chr$(152)
        Case Else
          Entities = "Chr(?)"
  End Select
End Function

Så kan du forsætte med at sette navne på også ;)

Public Function Entities(ByVal Value As String) As String
  Select Case Value
        Case 0 To 255
          Entities = Chr$(CLng(Value))
        Case 338, "OElig":  Entities = Chr$(140)
        Case 339, "oelig":  Entities = Chr$(156)
        Case 352, "Scaron": Entities = Chr$(138)
        Case 353, "scaron": Entities = Chr$(154)
        Case 376, "Yuml":  Entities = Chr$(159)
        Case 710, "circ":  Entities = Chr$(136)
        Case 732, "tilde":  Entities = Chr$(152)
        Case Else
          Entities = "Chr(?)"
  End Select
End Function

Det der kunne jeg bruge til noget - tak!
Svarer du, sjh?

Svar :-)

Wauw .. undskyld den lange ventetid! Jeg har lige gang i oprydning af mine spørgsmål - tak!