Ich such einen Befehl und seine Beschreibung, der folgendes tut! Er soll in eine Datei so ähnlich reinschreiben:
12, 39, Schwabach, 14, 06, 1985
19, 35, Nürnberg, 19, 03, 1879
.....
Und so weiter! Gibt es sowas oder muss man sich das Mühsam erstellen? Das erste ist zum Beispiel die Uhrzeit, das Zweite der Ort und die Letzten Zahlen das Datum. Also Praktisch So in die Datei reinspeichern und hinterher wieder auslesen.
Simon
UselessUser simonkopp „Visual Basic ein Befehl Angeordneten schreiben in Datei?“
Hallo Simon,
z. B. mit der Open(Create)TextFile- und ReadTextFile-Methode des FileSystemObjects:
'----------------------------
Dim FSO As FileSystemObject
Dim schreib
Dim lese
Dim lesevariable
Set FSO = New FileSystemObject
'------- Schreiben
Set schreib = FSO.OpenTextFile("C:\Liste.txt", ForWriting, True)
'Falls die Datei neu erzeugt werden soll: FSO.CreateTextFile
'Schreiben mit Zeilenvorschub am Ende
schreib.WriteLine "Das ist eine Zeile."
'Schreiben ohne Zeilenvorschub
schreib.Write "Das ist "
schreib.Write "eine Zeile."
'Schreiben von 2 Leerzeilen
schreib.WriteBlankLines 2
schreib.Close
'--------- Lesen
Set lese = FSO.OpenTextFile ("C:\Liste.txt", ForReading, False)
'alle Zeile in einem Rutsch
lesevariable = lese.ReadAll
'Zeilenweise Einlesen, AtEndOfStream bedeutet Dateiende
While Not lese.AtEndOfStream
lesevariable = lese.ReadLine
Loop
'Lesen einer bestimmten Anzahl von Zeichen, hier einem einzigen,
'die Zeile wird in diesem Bsp. Zeichen für Zeichen bis zum Zeilen-
'ende (AtEndOfLine) ausgelesen
While Not lese.AtEndOfLine
lesevariable = lese.Read(1)
Loop
lese.Close
'----------------------------------------
Mit diesen Funktionen kannst du dir schon eine Menge zusammenbasteln, falls du Spaß daran hast. Eine andere Möglichkeit ist es, dir von (den installierten!) Office-Objekten das Word- oder Excel.Application-Objekt zu schnappen, bspw. ab Excel 9
Set XLApp = CreateObject("Excel.Application")
um dann ein Excel-Workbook (unsichtbar) zu öffnen und ein Worksheet zu formatieren und beschreiben, z. B.
XLWsh.Cells(X, Y).Value = "Schwabach"
Aber das ist eine längere Geschichte und dabei gibt es viel zu beachten.
Bei beiden Wegen ist zu beachten, dass die entsprechenden Objekte in der Objektreferenzliste deines VB-Projektes enthalten sein müssen, im Menü irgendwo unter "References" zu finden, weiß jetzt nicht die genauen Bezeichnungen.
MfG
UselessUser
