DOS format

Dinne kan konvertere DOS til Windows:

Function DKOEMToAnsi(line)
    line = replace(line,Chr(145),"æ")
    line = replace(line,Chr(155),"ø")
    line = replace(line,Chr(134),"å")
    line = replace(line,Chr(146),"Æ")
    line = replace(line,Chr(157),"Ø")
    line = replace(line,Chr(143),"Å")
    DKOEMToAnsi = line
  End Function

Du skal bar ændre den på denne måde:

Function DKAnsiToOEM(line)
    line = replace(line,"æ",Chr(145))

Hvis du står og skal have en tekst oversat nu så download en version af editpad, som har en indbygget funktion til det.

http://www.jgsoft.com/

Tak for funktionen, så var jeg fri for selv at skrive den ;-)

Der er selvfølgelig det "lille" problem med den at den KUN tager højde for æøå og ikke alle de andre special-karakterer som f.eks. é osv.

Nå, men dit kode kan nu sagtens alligevel bruges i den opgave jeg sidder med, så fuld point til dig ;-)

/SoerenS

Hvis du skal bruge de sidste koder så send lige en mail til cc@decom.dk - så jeg husker det. :-)

Øhh ..

Her er adresse:
claus@coltau.dk