Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Kannst du z. B. so machen...
Autor: effeff
Datum: 25.07.05 10:00
Dim Pfad As String = "d:\test\net\" Dim Datei As String = Pfad & "gesamt.txt" Dim Ausgabedatei As String Dim Zeile As String Dim Buchstabe As String Dim sr As System.IO.StreamReader = New System.IO.StreamReader(Datei) Dim sw As System.IO.StreamWriter Do Zeile = sr.ReadLine() If Not Zeile Is Nothing Then Buchstabe = Zeile.Substring(0, 1) Ausgabedatei = Pfad & Buchstabe & ".txt" If System.IO.File.Exists(Ausgabedatei) = False Then sw = System.IO.File.CreateText(Ausgabedatei) sw.Flush() sw.Close() End If sw = System.IO.File.AppendText(Ausgabedatei) sw.WriteLine(Zeile) sw.Flush() sw.Close() End If Loop Until Zeile Is Nothing sr.Close() EALA FREYA FRESENA

textdatei lesen und dann neu schreiben	901	spiderboy	24.07.05 21:45
Re: textdatei lesen und dann neu schreiben	561	spiderboy	24.07.05 23:43
Kannst du z. B. so machen...	622	effeff	25.07.05 10:00
Re: Kannst du z. B. so machen...	576	DaveS	25.07.05 11:59
Klar, von der Schnelligkeit her...	527	effeff	25.07.05 12:36
Re: Klar, von der Schnelligkeit her...	584	DaveS	25.07.05 12:44
Deifi...	618	effeff	25.07.05 13:13

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen