Tegnsætning

Du skulle vel ikke have lavet den tekstfil i dos vel ?

det er en XML fil der bliver gennereret på en webserver (ud fra et recordset)

hmm .. har du prøvet at åbne filen i Notepad og set om ÆØÅ er med ?

det er de

det er det der er mystisk

Hmm .. DEN fatter jeg godtnok ikke ..

heller ikke i den ende her :)

Der findes flere måder man kan skrive text files på, åbenbart, men hvordan fa\'en får man den lige til at konvertere fra en måde, til en anden?

Hej Bigbendk.

Jeg har lavet et lille program, der kan konverete fra det man får når en mail fremkommer via en udfyldt form i HTML.

\'Enter\', skråstreger, procenttegn etc. er det nødvendigt at konvertere.  Her er sektionen om æøåÆØÅ:

  If InStr(hele, \"%0D%0A\") = 0 Then GoTo turae
  tegn = Len(hele)
  p1 = InStr(hele, \"%0D%0A\")
  felt(0) = Left$(hele, p1 - 1)
  felt(1) = Mid$(hele, p1 + 6)
  hele = felt(0) & \" \" & felt(1)
  GoTo turenter
turae:
  If InStr(hele, \"%E6\") = 0 Then GoTo turoe
  tegn = Len(hele)
  p1 = InStr(hele, \"%E6\")
  felt(0) = Left$(hele, p1 - 1)
  felt(1) = Mid$(hele, p1 + 3)
  hele = felt(0) & \"æ\" & felt(1)
  GoTo turae
turoe:
  If InStr(hele, \"%F8\") = 0 Then GoTo turaa
  tegn = Len(hele)
  p1 = InStr(hele, \"%F8\")
  felt(0) = Left$(hele, p1 - 1)
  felt(1) = Mid$(hele, p1 + 3)
  hele = felt(0) & \"ø\" & felt(1)
  GoTo turoe
turaa:
  If InStr(hele, \"%E5\") = 0 Then GoTo tursae
  tegn = Len(hele)
  p1 = InStr(hele, \"%E5\")
  felt(0) = Left$(hele, p1 - 1)
  felt(1) = Mid$(hele, p1 + 3)
  hele = felt(0) & \"å\" & felt(1)
  GoTo turaa
tursae:
  If InStr(hele, \"%C6\") = 0 Then GoTo tursoe
  tegn = Len(hele)
  p1 = InStr(hele, \"%C6\")
  felt(0) = Left$(hele, p1 - 1)
  felt(1) = Mid$(hele, p1 + 3)
  hele = felt(0) & \"Æ\" & felt(1)
  GoTo tursae
tursoe:
  If InStr(hele, \"%D8\") = 0 Then GoTo tursaa
  tegn = Len(hele)
  p1 = InStr(hele, \"%D8\")
  felt(0) = Left$(hele, p1 - 1)
  felt(1) = Mid$(hele, p1 + 3)
  hele = felt(0) & \"Ø\" & felt(1)
  GoTo tursoe
tursaa:
  If InStr(hele, \"%C5\") = 0 Then GoTo videre
  tegn = Len(hele)
  p1 = InStr(hele, \"%C5\")
  felt(0) = Left$(hele, p1 - 1)
  felt(1) = Mid$(hele, p1 + 3)
  hele = felt(0) & \"Å\" & felt(1)
  GoTo tursaa

videre:

Er det noget i den retning?

m.v.h.  Jørn

Du skal nok kigge lidt på funktionen strConv

Syntax

StrConv(string, conversion, LCID)
Hvor
\"string\" er input fra din fil.
\"conversion\" den konvertering du vil foretage
\"LCID\" evt. den codepage du vil konvertere til

Din string er sandsynligvis unicode så du skal bruge vbFromUnicode som \"conversion\" parameter.
Læs evt. selv på msdn.microsoft.com omkring strConv.

:)

/Jennemaan

Jennemaan>
Tak for dit svar, jeg har selv sidet og rodet med den, men indtil nu har jeg ikke fundet den rigtige kombinationsmulighed ;(

hej bigbendk

Smid mig lige en mail med et eksempel på den fil du skal have læst. Så laver jeg et eksempel til dig på jens@woeste.dk

/Jennemaan

Æhm... stop... Hvis det er et recordset gemt som XML... Hvorfor tager du så ikke og læser det ind i et adodb.recordset???

/Jennemaan

....der er stadig ingen ÆØÅæøå\'er i recordsettet

Spørgsmålet er ikke længere aktuelt, derfor lukker jeg spørgsmålet