OK. Jeg har en hel tekst fil i ascii kode hvor hver linie er det samme som en record. Jeg skal så havde alle karaktererne konveret til en alm char og derefter flytte alt teksten over i en anden fil.
Dim input As New StreamReader(kildefil, Encoding.GetEncoding(CultureInfo.CurrentCulture.TextInfo.OEMCodePage)) My.Computer.FileSystem.WriteAllText(strTmpLms, String.Empty, False) Dim output As New StreamWriter(strTmpLms, False, Encoding.GetEncoding(CultureInfo.CurrentCulture.TextInfo.ANSICodePage)) Dim line As String line = input.ReadLine() Dim i As Integer = 0 Do Until line Is Nothing And i < 100 output.WriteLine(line) line = input.ReadLine() Loop input.Close() output.Close()
Synes godt om
Ny brugerNybegynder
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.