VB Öffnen

(V)uh · 08.11.2001, 12:04

Das öffnen an sich ist meist immer das gleiche.
Wie du schon sagstest "Open ...."

Und dann kannst du noch auf verschiedenen arten lesen (am besten aus der hilfe raussuchen mit den unteren schlüsselwörtern):

Line Input
Read
ReadLine
ReadAll
Input
...

Den inhalt einer ganzen datei liest du auf einen rutscher mit Object.ReadAll ein (braucht aber viel speicher unter umständen).

http://www.vb-world.net/files/openstatement/
http://pub13.ezboard.com/fvisualbasi...icID=869.topic

Und etwas Bsp. code wenn du ein textfeld füllen willst mit einer ganzen datei (freefile methode):

Dim filenumber As Integer, length As Long
filenumber = Freefile
Open filename for Input as filenumber
length = LOF(filenumber)
If length < 32767 Then
Text1.Text = Input$(length, filenumber)
Else
MsgBox "This file is longer than 32Kb"
EndIf
Close filenumber

Viel Spass
(V)uh

08.11.2001, 12:04	#2
(V)uh Veteran Registriert seit: 14.06.2001 Alter: 55 Beiträge: 385	Das öffnen an sich ist meist immer das gleiche. Wie du schon sagstest "Open ...." Und dann kannst du noch auf verschiedenen arten lesen (am besten aus der hilfe raussuchen mit den unteren schlüsselwörtern): Line Input Read ReadLine ReadAll Input ... Den inhalt einer ganzen datei liest du auf einen rutscher mit Object.ReadAll ein (braucht aber viel speicher unter umständen). http://www.vb-world.net/files/openstatement/ http://pub13.ezboard.com/fvisualbasi...icID=869.topic Und etwas Bsp. code wenn du ein textfeld füllen willst mit einer ganzen datei (freefile methode): Dim filenumber As Integer, length As Long filenumber = Freefile Open filename for Input as filenumber length = LOF(filenumber) If length < 32767 Then Text1.Text = Input$(length, filenumber) Else MsgBox "This file is longer than 32Kb" EndIf Close filenumber Viel Spass (V)uh ____________________________________ Diese signatur ist optional !

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)