ANSI

<quote>Jeg har fået fat i en tekst, skrevet med ANSI koder, og jeg vil gerne vide, om der ikke er en aller anden smart funktion i VB, som gør det nemt, at konvertere det

Troels :-)
</quote>

Hvis Ja da
Hver kode kan du få tilbage med koden chr()

feks. msgbox Chr(65) ville give dig en beskedbox med et stort A i.

så hvis du har en tekst fil med alle disse ascii koder i og har vb 6.0
så kan du bruge denne funktion


Funtion KomvetertilTekst(StrTekst as string) as string
Dim strOrd() as string
Dim LngAntal as Long
Dim LngNr as Long

StrOrd() = Split(StrTekst," ")
LngAntal= Ubound(Strord())

For LngNr = 0 to LngAntal
Doevents
Strord(LngNr) = Chr(Val(Strord(LngNr) ))
Next LngNr

KomvetertilTekst = Join(Strord(), " ")

End funtion

Tilføj en tekstbox på din skærm.
Så går vi ud fra at filen "c:\\fil.txt" indeholde alle de ascii koder

Sådan her bruger gør du så.

Dim StrTekst as string

close #1
Open "c:\\filen.txt" for input as #1
Strtekst = input(lof(1),1)
close #1

Text1.text = KomvetertilTekst(Strtekst)


Jeg håber det kan bruges..

/Cix