Wilkommen zu meinem ersten Tutoriel.
Als erstes erstellen sie ein neues Projckt.
Nun geben sie diesen programcode ein:
--------------------------------------------------
private sub form_load()
'Hier wird die Variable ddatei als string 'deklariert.
dim ddatei as string
'Hier weird eine Inputbox erzeugt die den Benutzer 'auffordert den Pfad zu der Datei anzugeben.
ddatei = InputBox("Geben sie den Pfad zu ihrer Datei auf der Festplatte an:","Pfad"
'Hier wierd diese Datei geöffnet.
iKanalNr = Freefile()
open ddatei for input as iKanalNr
ddatei = input(lof(iKanalNr),iKanalNr)
close iKanalNr
'Hier werden nun die Daten ausgegeben.
msgbox ddatei,,"Daten Inhalt"
'Hier weird das Programm wieder beendet.
end
exit sub
--------------------------------------------------
Kurz zum Ablauf des Programms:
1. Das Programm erzeugt eine Variable namens ddatei
2. Das programm weist den Pfad der datei ddatei zu.
3. Das Programm öffnet diese Datei
4. Das Programm speicher den Inhalt der Datei in ddatei
5. Das Programm gibt eine msgbox mit dem Inhalt der Datei aus
6. Das Programm beendet sich selbst.
Das wars auch schon. Nun können sie daten aus dateien lesen.
Viel Spass