Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Umgang mit txt-File

Umgang mit txt-File
31.12.2003 09:42:41
Thomas
Hallo Zusammen

Ich schreibe aus Excel mit Print Daten in ein txt-File. Mit Input kann ich diese wieder auslesen (also Sequentiell).

Wie kann ich aber nur eine x-beliebige Zeile im txt-File einlesen, verändern oder gar löschen?

Besten Dank für die Hilfe

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Umgang mit txt-File
31.12.2003 09:50:25
Nepumuk
Hallo Thomas,
zwei Möglichkeiten:
1. Seriell bis zur gewünschten Zeile durchlesen.
2. In ein Array einlesen.
Gruß
Nepumuk
AW: Umgang mit txt-File
31.12.2003 10:00:33
Thomas
Hallo Nepumuk

Danke für deine rasche Antwort. Die 2. Möglichkeit werde ich gleich mal austesten.
Für die 1. Möglichkeit habe ich keine Ahnung. Hast du mir vielleicht ein kleines Beispiel?

Gruss Thomas
AW: Umgang mit txt-File
31.12.2003 10:37:17
Nepumuk
Hallo Thomas,
serielles durchlesen würde ich so machen:

Public Sub text_test()
Dim intZeile As Integer, intDatei As Integer, strText As String
intDatei = FreeFile()
Open "D:\Eigene Dateien\test.txt" For Input As #intDatei
Do Until EOF(intDatei)
intZeile = intZeile + 1
Input #intDatei, strText
If intZeile = 10 Then Exit Do
Loop
Close #intDatei
End Sub


und in ein Array, sofern es sich nicht um zu viele Zeilen handelt so:

Public Sub text_test2()
Dim intZeile As Integer, intDatei As Integer, sA(1 To 10) As String
intDatei = FreeFile()
Open "D:\Eigene Dateien\test.txt" For Input As #intDatei
Input #intDatei, sA(1), sA(2), sA(3), sA(4), sA(5), sA(6), sA(7), sA(8), sA(9), sA(10)
Close #intDatei
End Sub


Ansonsten das auch wieder in eine Schleifen mit einem separaten Zähler in zehnerschritten.
Gruß
Nepumuk
Anzeige
AW: Umgang mit txt-File
31.12.2003 10:07:10
ChrisL
Hi Thomas

Hier ein Beispiel zum Ändern von Zeilen...

Option Explicit


Sub test()
Call Aendern(2, "neuer Text")
End Sub




Sub Aendern(Zeile As Integer, AText As String)
Dim strDaten As String
Dim iCounter As Long
ReDim arr(0) As Variant
' Daten in Array einlesen
Open "C:\test\test.txt" For Input As #1
Do While Not EOF(1)
iCounter = iCounter + 1
ReDim Preserve arr(iCounter)
Input #1, strDaten
If iCounter = Zeile Then
arr(iCounter) = AText
Else
arr(iCounter) = strDaten
End If
Loop
Close #1
' Daten in Text Datei speichern
Open "C:\test\test.txt" For Output As #1
For iCounter = 1 To UBound(arr)
Write #1, arr(iCounter)
Next
Close #1
End Sub


Call Aendern(2, "neuer Text")... die "2" steht für die Zeile, welche geändert werden soll.

Gruss
Chris
Anzeige
Vielen Dank euch Beiden und guten Rutsch..o.T.
31.12.2003 10:34:38
Thomas

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige