Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt einer Textdatei als String einlesen

Inhalt einer Textdatei als String einlesen
07.02.2004 20:20:40
Marco W.
Hallo,
ich möchte den kompletten Inhalt einer Textdatei als String im EXCEl vorfinden.
Bei WORD-Dateien habe ich dies bereits realisert. Dabei öffne ich diese Datei markiere den gesamten Inhalt, kopiere ihn in die Zwischenablage und von dort in die Stringvariable.
Nun suche ich eine ähnliche oder auch völlig andere Variante für das Auslesen einer Textdatei. Über Schleife bis EOF() ist nicht das optimale, da ich ja alles haben will.
Gibt es eine Variante über die Zwischenablage (ich kann gleichen Algorithmus wie für die Word-Dateien verwenden)?
Oder eine ganz andere Variante:
z. B.
Open datei For Input As #1
strAct2 = Input([Stringlänge], #1)
Gibts da eine Möglichekeit die Gesamtanzahl aller Zeichen (Variable [Stringlänge]) der betreffenden Textdatei zu ermitteln?
Marco W.

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

Betreff
Datum
Anwender
Anzeige
Habe eine Lösung gefunden
07.02.2004 20:59:09
Marco W.
Folgende Lösung habe ich jetzt:
dim Stringlänge as long
Open datei For Input As #1
Stringlänge=LOF(1)
string = Input(Stringlänge, #1)
AW: Habe eine Lösung gefunden
07.02.2004 21:43:23
NE
Abend Marco,
... und ich hab noch probiert ...
vorweg, keine Ahnung, hatte's bislang nur bis debug.print geschafft ;;-)) 

Sub test_1()
Dim zeile$
Close #1
Open "c:\dummy\tip.txt" For Input As #1
Debug.Print
While Not EOF(1)
Line Input #1, zeile
Debug.Print zeile
Wend
Close #1
End Sub

cu Nancy
AW: Habe eine Lösung gefunden
07.02.2004 23:10:49
Marco W.
Hallo Nancy,
Sorry, dass Du umsonst probiert hast.
Dein Code mit einer Schleife bis zum Dateiende, die Zeilenweise einliest (aber nur, wenn kein Komma drin ist) ist genau der den ich vermeiden wollte, weil es damit relativ lange dauert, bis man die komplette Datei eingelesen hat.
Und bei mir gibt es auch Komma's auf einer Zeile, da weiß ich nicht ob der Teil nach dem Komma auch eingelesen wird.
Ich lese den kompletten Datei-Inhalt mit einem Mal in meine String-Variable ein. Anschließend suche ich mit instr(string,vbcr) nach dem Zeilenendezeichen und lese bis dahin die Zeichen aus, Zeilenanfangszeichen (vbLf) und Zeilenendezeichen (vbCr) von diesem Teilstring entfernen und schon habe ich eine Zeile der Textdatei, egal wie viele Komma's dort vorkommen. Nach Überprüfung dieser Zeile wird der Teilstring aus dem Gesamt-String gelöscht und erneut das Zeilenendezeichen ausgelesen, usw. ...
Vieleicht gibts auch noch elegantere Möglichkeiten, aber diese ist für mich völlig ausreichend.
Trotzdem Danke für die Mühe.
Gute Nacht!
Marco
Anzeige
AW: Habe eine Lösung gefunden
08.02.2004 00:14:34
NE
No Prob, bitte :-)
werd' ja auch nicht dümmer dran, vielleicht noch via binär? - das übersteigt aber momentan meinen Horizont ..., anyway ...
thx for your reply :-)
cu & nächtle
Nancy
--
Marriage is a romance in which the hero dies in the first chapter.
AW: Habe eine Lösung gefunden
08.02.2004 12:26:14
NE
Hi Marcus,
ich nochmal kurz, so umsonst war's doch nicht ;;-))
ääääähh' nur 'input' liest bis zum nächsten Komma,
ein 'Line input' aber schon die ganze Zeile [incl. ','] ;-)
cu Nancy
--
While Not EOF(1)
Line Input #1, zeile
Debug.Print zeile
Wend

303 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2