Avatar billede bigbendk Nybegynder
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??
Avatar billede tdaugaard Nybegynder
02. januar 2001 - 17:13 #1
Du skulle vel ikke have lavet den tekstfil i dos vel ?
Avatar billede bigbendk Nybegynder
02. januar 2001 - 17:16 #2
det er en XML fil der bliver gennereret på en webserver (ud fra et recordset)
Avatar billede tdaugaard Nybegynder
02. januar 2001 - 17:16 #3
hmm .. har du prøvet at åbne filen i Notepad og set om ÆØÅ er med ?
Avatar billede bigbendk Nybegynder
02. januar 2001 - 17:17 #4
det er de
Avatar billede bigbendk Nybegynder
02. januar 2001 - 17:20 #5
det er det der er mystisk
Avatar billede tdaugaard Nybegynder
02. januar 2001 - 17:25 #6
Hmm .. DEN fatter jeg godtnok ikke ..
Avatar billede bigbendk Nybegynder
02. januar 2001 - 17:27 #7
heller ikke i den ende her :)
Avatar billede bigbendk Nybegynder
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?
Avatar billede joern Nybegynder
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
Avatar billede jennemaan Nybegynder
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
Avatar billede bigbendk Nybegynder
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 ;(
Avatar billede jennemaan Nybegynder
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

Avatar billede jennemaan Nybegynder
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
Avatar billede bigbendk Nybegynder
03. januar 2001 - 18:51 #14
....der er stadig ingen ÆØÅæøå\'er i recordsettet
Avatar billede bigbendk Nybegynder
02. februar 2001 - 17:24 #15
Spørgsmålet er ikke længere aktuelt, derfor lukker jeg spørgsmålet
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester