Inhalt der Datei auslesen

[Wolfgang]

Hallo Ng'ler,

brauche eure Hilfe.
Ich möchte den Inhalt einer Datei auslesen.
hier der Beginn meines Makro's

Sub test()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("G:\Temporär\testfile.txt", True)
a.WriteLine ("Dies ist ein Test für ein neues Programm.")
a.Close
Open "G:\Temporär\testfile.txt" For Output Shared As #1

Wie kann ich den Inhalt der Datei auslesen und in einem
Textfeld' darstellen????

Close #1
End Sub

Auf eine Antwort freut sich

Wolfgang Staiger

[Thomas Tauber]

Hallo,

ich habe einen Button in einem Formular, der in verschiedene txtBoxen
zeilenweise eine Textdatei ausliest.
Es folgt der Code, den Du bestimmt Deinen Bedürfnissen anpassen kannst.

Private Sub cmdLaden_Click()
fileToOpen = Application.GetOpenFilename("Wochenplandatei (*.txt),
.txt") 'öffnet Auswahldialog
If fileToOpen <> False Then 'falls Auswahl stattfand
Open fileToOpen For Input As #1 'Datei öffnen
On Error Resume Next
i = 0
Do While Not EOF(1) 'bis Dateiende lesen
i = i + 1
If i > 30 Then 'wenn Zeile 31 erreicht, dann aufhören
Exit Do
End If
Input #1, Ladenvariable 'einlesen
txtB = "txt" & i
Controls.Item(txtB) = Ladenvariable 'eintragen
Loop
Close
End If
End Sub
--
T.Tauber
Bei Antworten an meine Email-Adresse bitte "tom" entfernen


"Wolfgang" <***@t-online.de> schrieb im Newsbeitrag news:a41101c3eb53$b5b9ee20$***@phx.gbl...
Hallo Ng'ler,

brauche eure Hilfe.
Ich möchte den Inhalt einer Datei auslesen.
hier der Beginn meines Makro's

Sub test()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("G:\Temporär\testfile.txt", True)
a.WriteLine ("Dies ist ein Test für ein neues Programm.")
a.Close
Open "G:\Temporär\testfile.txt" For Output Shared As #1

Wie kann ich den Inhalt der Datei auslesen und in einem
Textfeld' darstellen????

Close #1
End Sub

Auf eine Antwort freut sich

Wolfgang Staiger

[Herbert Taferner]

Hallo Wolfgang,

Sub TXT_Einlesen()
Dim strZelle As String
Dim strTextzeile As String
Dim intZähler As Integer
Open "C:\test.txt" For Input As #1
intZähler = 0
'Schleife bis zum Dateiende
Do While Not EOF(1)
intZähler = intZähler + 1
Line Input #1, strTextzeile
Text = Text & vbCrLf & strTextzeile
Loop
Close #1
Worksheets("Tabelle1").TextBox1.Text = Text

End Sub

mfg Herbert

[unknown]

Hallo Wolfgang,
hier ein Beispiel:

Sub TextInTextfeld()
Dim FS, a
Dim strZeile As String
Dim strText As String
Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile("G:\testfile.txt", True)
a.WriteLine ("Dies ist ein Test für ein neues Programm.")
a.Close
Open "G:\testfile.txt" For Input As #1
Do
Line Input #1, strZeile
strText = strText & strZeile & vbLf
Loop While Not EOF(1)
Close #1
With Worksheets("Tabelle1").Shapes("myTextfield").TextFrame
.Characters.Text = strText
.AutoSize = True
End With
End Sub

Anmerkung:
Dem Textfeld aus der Symbolleiste "Zeichnen" wurde der Name
"myTextField" vergeben.

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de; Auftragsprogrammierung

[Wolfgang]

Vielen Dank an alle die mir so schnell geantwortet haben.

Gruß

Wolfgang Staiger

-----Originalnachricht-----
Hallo Ng'ler,
brauche eure Hilfe.
Ich möchte den Inhalt einer Datei auslesen.
hier der Beginn meines Makro's
Sub test()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("G:\Temporär\testfile.txt",

True)

a.WriteLine ("Dies ist ein Test für ein neues Programm.")
a.Close
Open "G:\Temporär\testfile.txt" For Output Shared As #1
Wie kann ich den Inhalt der Datei auslesen und in einem
Textfeld' darstellen????
Close #1
End Sub
Auf eine Antwort freut sich
Wolfgang Staiger
.