02. januar 2001 - 17:10
Der er
14 kommentarer og 1 løsning
Tegnsætning
Hej jeg har et problem... Hvis jeg i en tekstfil har ÆØÅ stående, og åbner filen i VB, og bare debug.print\'er den ud, er ÆØÅ lavet om til meget mystiske tegn, nogen der kan hjælpe mig så jeg kan få ÆØÅ ind i VB??
Annonceindlæg fra Kingston Technology
02. januar 2001 - 17:13
#1
Du skulle vel ikke have lavet den tekstfil i dos vel ?
02. januar 2001 - 17:16
#2
det er en XML fil der bliver gennereret på en webserver (ud fra et recordset)
02. januar 2001 - 17:16
#3
hmm .. har du prøvet at åbne filen i Notepad og set om ÆØÅ er med ?
02. januar 2001 - 17:17
#4
det er de
02. januar 2001 - 17:20
#5
det er det der er mystisk
02. januar 2001 - 17:25
#6
Hmm .. DEN fatter jeg godtnok ikke ..
02. januar 2001 - 17:27
#7
heller ikke i den ende her :)
02. januar 2001 - 18:59
#8
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?
02. januar 2001 - 19:46
#9
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
03. januar 2001 - 17:42
#10
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
03. januar 2001 - 17:46
#11
Jennemaan> Tak for dit svar, jeg har selv sidet og rodet med den, men indtil nu har jeg ikke fundet den rigtige kombinationsmulighed ;(
03. januar 2001 - 17:53
#12
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
03. januar 2001 - 17:55
#13
Æ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
03. januar 2001 - 18:51
#14
....der er stadig ingen ÆØÅæøå\'er i recordsettet
02. februar 2001 - 17:24
#15
Spørgsmålet er ikke længere aktuelt, derfor lukker jeg spørgsmålet
Kurser inden for grundlæggende programmering