aus ner datei .LST text einlesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hi figo ..
habe das nochmal angesehn dachte koennte das nachvollziehn aber da stimmt nichts ?
bei ersten probieren hatte der was in die drei zellen geschrieben aber ich hatte nicht geachtet dass es falssche zeilen waren ....
die zeilen nummern ?? wie kann die genau fnden ?
habe das mit makrorecorder daten importieren gesucht
die zeilen sollten im editor angegeben sein ...hmmm
nu kommt ständig debugger einlesen hinter dateiende ?
wenn das makro durchgelaufen ist ...muss das doch wiederholbar sein ?
ich habe versucht mit F8 nachverfolgen
open ......ok....die datei wird geoeffent denke ich mal (im hintergrund ?)oder wo ist die geoeffnet das finde nicht wo das offen ist damit ich schliessen koennte dann duerfte die fehlermeldung dateiende weg sein
hier die grundlagen studieren und testen ....einbauen ...fehler ....umbauen ....neuen thread ...in hilfe dateien rumsuchen .........muehsam
ich koennte zb ..die testdatei per mail schicken.....
da sollte zeile sowieso ...in zelle sowieso eingetragen werden
wenn dies erst mal lauft dann die zahlen in der zeile suchen
dieser vorgang wird sicher oefter gebraucht
auf der cd von herber ist nix passendes zu finden
in lehrbuechern auch ales moegliche ....nur nocht konkret beschrieben
da werden textdateien angelegt ...was reingeschrieben (per makro) dann der inhalt wieder in ne spalte (herber cd) ...nix logisches
habe nun alle anwendungen geschlossen
excel neustart wieder einlesen nach dateiende ....tja aus die maus?
nun habe eines der grundprobleme:
stimmt der code ?
ist das ev getestet ?
meine zeilen indizes sind von 948 - 980 ...ist das dem ding zu viel?
eben drum ein beispiel was lauft kann man anpassen erweitern usw .
so z b wen er erst mal die zeilen richtig einliest aus der zeile sequeenzen extrahieren
weiter habe ich ein problem damit ob du diesen beitrag ueberhaupt zu sehen bekommst
nu habe seit um 5 am morgen wieder rumprobiert ...nix konkretes ....geschweige was kapiert (
mache mal was anderes wer weiss fällt mir noch was ein
danke erst mal
gruss
roland_k

Sub Test() Dim i%, MeineDatei%, Textzeile$ MeineDatei=FreeFile Range("A1")=Date 'Augen auf, in der nächsten Zeile steht der Dateiname Open "C:\Anwender\tool1.LST" For Input Access Read As #MeineDatei Do While Not EOF() MeineDatei Line Input #MeineDatei, Textzeile i=i+1 If i=456 then Range("B1") = Val(Instr(20,Textzeile,4)) If i=567 then Range("C1") = Val(Instr(20,Textzeile,4)) If i=655 then Range("D1") = Val(Instr(20,Textzeile,4)) Loop Close #MeineDatei if i<655 then msgbox "Nur " & i & " Zeilen in C:\Anwender\tool1.LST" End Sub

hi andre
mein level bedeutet nachvollziehn wenn ein code gestestet und mit ner mappe funkt:
kommentare wären hilfreich....ich meinete nicht meine datei sondern was freefile macht?


Sub Test()
Dim i%, MeineDatei%, Textzeile$
MeineDatei=FreeFile
Range("A1")=Date
'Augen auf, in der nächsten Zeile steht der Dateiname
Open "C:\Anwender\tool1.LST" For Input Access Read As #MeineDatei
Do While Not EOF() MeineDatei
########hier kommt direckt fehler ...sollte so sein:
EOF(MeineDatei)
Line Input #MeineDatei, Textzeile
i=i+1
If i=456 then Range("B1") = Val(Instr(20,Textzeile,4)) ####was macht die 20  was die 4
If i=567 then Range("C1") = Val(Instr(20,Textzeile,4))
If i=655 then Range("D1") = Val(Instr(20,Textzeile,4))
Loop
Close #MeineDatei
if i<655 then msgbox "Nur " & i & " Zeilen in C:\Anwender\tool1.LST"
End Sub

ich suchte die richtigen zeilennummern so:
daten.....externe daten importieren....daten importieren
da kommt fenster wo links neben dem text zeilennummern sind
diese muesstend och koreckte zeilennummern in dieser datei sein?
sie datei hate keine zeilenumbrüche aber wohl leerzeilen?
so komme nicht weiter
drum mache neuen beitrag:
eine text datei lade hoch
eine mappe mit schaltbutton
problembeschreibung innerhalb mappe
der beantworter bitte den code in die mappe integrieren
dann sehe nach runterladen was passiert
habe auch mit schrittweise versucht F8 aber auch da komme nicht weiter
ich will dieses beispiel durchziehn ....trivial erst mal um das dann anzugleichen auf meinen anwendungsfall
dies mal vorrausgesetzt dass die in der zelle erscheinenden zahl im text immer in der gleichen zeile zu finden ist
tatsächlich musst zu allem uebel festellen dass die zal nicht immer in der gleichen zeile von oben nach unten gezählt steht
was dann? vor der zahle steht text der nur jeweil in der gesuchten zeiel steht
er/sie hat xxxx punkte
das steht aber immer an gleicher postition von der letzen zeile aus gerechnet
angenommen es sind 566 zeilen dann steht das in der zeile 564 562 und 560
diese analogie koennte ich nutzen
deine loesung ist ja laut frigo ein guter loesungsansatz mit dem FreeFile
drum wollte dies auch nachvollziehn
wie gesagt mache neuen beitrag ..ich wuerde mich freuen wenn du das anschaust und
den code mit kommentaren versiehst...was wo genau paasiert
die thematik ist fuer mich neues kapitel mit andern geschichten sachen wie textboxen fuellen tabellen anlegen ausblenden usw kome inzwischen klar
grundlegende syntax geschichten habe noch sehr probleme
variaben konstanten ...so z b wann steht was in () oder dahinter hmm
das mit dem eof verhindert dass er ueber das dateiende hinausliest ? oder versucht?
habe zwar hilfe dazu gelesen aberr ehrlich gesagt nicht kapiert:(
so nu bastle ich erst mal ne beispielanwendung und lade in neuem beitrag hoch
ich weiss geht richtung schulung das forum ist eben kein tutorial hmmmm
danke erst mal fuer deine muehe
gruss roland_k
Ps: ich bin wirklich froh ueber jede hilfe, ohen das forum hätte keine chance drum bin ich auch allen dankbar fuer die geduld und die arbeit die damit verbunden ist

Sub Test() Dim i%, MeineDatei%, Textzeile$ MeineDatei=FreeFile Range("A1")=Date 'Augen auf, in der nächsten Zeile steht der Dateiname Open "C:\Anwender\tool1.LST" For Input Access Read As #MeineDatei Do While Not EOF() MeineDatei ########hier kommt direckt fehler ...sollte so sein: EOF(MeineDatei) Line Input #MeineDatei, Textzeile i=i+1 If i=456 then Range("B1") = Val(Instr(20,Textzeile,4)) ####was macht die 20 was die 4 If i=567 then Range("C1") = Val(Instr(20,Textzeile,4)) If i=655 then Range("D1") = Val(Instr(20,Textzeile,4)) Loop Close #MeineDatei if i<655 then msgbox "Nur " & i & " Zeilen in C:\Anwender\tool1.LST" End Sub

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread