also, diesmal würde ich gerne mein projekt so erweitern das eine txt datei zeilenweise mit variablen verglichen wird
bsp:...
ich heiße paul und bin 35 jahre alt
ich heiße wutz und bin 11 jahre alt
...
also sobald der name und das alter übereinstimmen soll diese zeile aus der txt herausgegriffen werden und ebenfals einer variablen zugewiesen werden...

schonmal thx für die lösungsvorschläge
mfg

Ok, ich gehe davon aus, dass du Name und Alter immer als erstes in der Zeile stehen hast:

Dim Parts() As String
Dim Zeile As String
Dim WasFound As Boolean
Dim nC As Integer,nD As INteger

nC = FreeFile
Open "datei.bla" for input as #nC
Do Until EOF(nC)
Line input #1,Zeile
Parts = Split(Zeile,Chr$(32))
if Parts(0) = "Paul" and Parts(1) = "35" then
WasFound = true
Exit Do
End If
Loop
Close #nC
If Not WasFound then Zeile = ""

In diesem Beispiel sind Name und Alter fest, aber du kannst natürlich auch Variablen einsetzen. Wenn Name und Alter
gefunden wurden, enthält die Variable Zeile nachher die komplette Zeile, ansonsten ist sie leer.

thx, es ****t (teilweise => was nicht an dir liegt)
sondern weil die txt doch nicht immer nach dem gleichem schema aufgebaut ist...
also des gleiche problem nochmal mit ner datei von deren zusammenstellung man NICHTS weiß außer das die beiden variablen die man vergleichen will in einer zeile sind...

mal guggen wer des hinbekommt...
mfg

Das Problem ist mit deinen Angaben nicht zu lösen, außer du hast weitere Attribute, mit denen du bestimmen kannst, was ein Wert enthält. Natürlich kannst du einfach schauen, ob beide Werte in der Zeile enthalten sind, wenn dir das genügt. Nun frag ich dich mal, wie wird die Datei denn erstellt, dass die so unterschiedlich aufgebaut ist?

ok, es gibt gewisse regelmäßigkeiten, hätte mich bloß interesiert wie es auch ohne geht...

ich habe mir nun folgendes überlegt:
die regelmäßigkeit besteht daran das die zeile VOR der eigentlich gesuchten zeile immer den gleichen inhalt hat (allerdings gibts es von diesen mehrere...)
also such ich diese zeilen raus und will dann die NÄCHSTE zeile erneut in einer txt datei speichern, und nochmals vergleichen lassen...
also der quelltext sollte dann so aussehen:

Private Sub command1_click()


Dim Zeile As String
Dim nC As Integer, nD As Integer

nC = FreeFile
Open "c:/1.txt" For Input As #nC
Do Until EOF(nC)
Line Input #nC, Zeile
If Zeile = "abc" Then
Open "C:/2.txt" For Append As #22

'###und hier ist die stelle die ich nicht umsetzen kann###
Print #22, NÄCHSTE Zeile ******

Close #22
End If
Loop
Close #nC
End Sub

ist sowas möglich****
mfg

Tu mir doch mal bitte den Gefallen und verrate mir, wie so ein kompletter Abschnitt einer Datei aussieht, und vor allem, welches Programm diese Dateien erstellt...

also das soll ein ausschnitt aus einer(verschiedener) html datei(en) sein, welche unterschiedlich aussehen können, weshalb eine allgemeine form zu bevorzugen wäre

bei noch detailierteren angaben kannste dich ja mal unter meiner email adresse melden

schonmal thx
mfg

Wobei:

"Der Benutzer hat angegeben, dass er/sie keine Emails durch dieses Board empfangen möchte."

ja durchaus rul3d, ehehe...

hmm...jetzt sollte es gehen
zur sicherheit nochmal: wutz1111@icqmail.com

bis denn...

mein icq postfach geht zur zeit nicht deshalb weiß ich nicht ob du dich bei mir gemeldet hast, aber ich hab jetzt mal selbst ne (übergangs)lösung gefunden

folgender quelltext sucht die zeile vorvor der gesuchten zeile heraus und schreibt die eigentlich gesuchten erneut in eine txt datei

Private Sub command1_click()

Dim Zeile As String
Dim nC As Integer, nD As Integer

nC = FreeFile
Open "c:/1.txt" For Input As #nC
Do Until EOF(nC)

Line Input #nc, Zeile

GoTo 2:
1:
Line Input #nc, Zeile
Line Input #nc, Zeile
Open "C:/2.txt" For Append As #22
Print #22, Zeile
Close #22

2:
If Zeile = "abc" Then
GoTo 1:

End If
Loop
Close #nc

End Sub

jetzt nur noch eine frage: wie kann ich die erstellten txt wieder löschen (oder zumindest den inhalt der dateien)?

thx für dein bemühen celvin
mfg

Ja, hatte mich gemeldet...hauptsächlich spukte mir der Gedanke im Kopf herum, du solltest die Anwendung, die die HTML-Dateien erstellt, ändern...ich hatte spontan ein PHP - Script o.ä. dahinter vermutet...

Nun zu deinem Code. Also, heutzutage scheint GOTO ja extrem verpöhnt zu sein. In deinem Fall ist es allerdings wirklich unnötig und sieht wirr aus...

Dim Zeile As String
Dim nC As Integer, nD As Integer

nC = FreeFile
Open "c:\1.txt" For Input As #nC
nD = FreeFile
Open "C:\2.txt" For Append As #nD

Do Until EOF(nC)
Line Input #nc, Zeile

If Zeile = "abc" then
Line Input #nc, Zeile
Line Input #nc, Zeile
Print #nD, Zeile
Exit Do
End If

Loop

Close


Sieht angenehmer aus, wie ich finde. Überlege allerdings wirklich mal, ob du an der "Quelle" der Dateien keine Änderungen vornehmen kannst...da gäbs einige, wesentlich besser geeignete Möglichkeiten

Achja, Dateien löschen kannst du mit
"Kill"

Kill "C:\bla.txt"

In den Papierkorb wandern diese Dateien dann jedoch nicht

ja ich weiss, das goto war vollkommen unnötig
naja...schwamm drüber...

nun zu den html dateien:
die erstell ich nicht selbst und kann somit auch keine änderungen daran vornehmen
aber die bisherigen einzelteile ****en alle, muss sie nur noch zusammenfügen...

also ne email hab ich von dir keine erhalten, wäre aber nett wenn du mir nochmal eine schicken würdest, dann könnten wir ja mal die icq nummern tauschen (wenn du willst), das wird sicherlich nicht das letzte problem gewesen sein...

mfg

Wie wärs mit IRC****?
ICQ hasse ich wie die Pest...

Wenn du mal Bock hast, IRC wär mir sehr recht...ich schreib dir ma ne Mail.

@ wutz also das was du machen willst, ist (so nehme ich mal an) eine html-Datei zu Parsen. Was heißt, daß du die Datei "durchliest" und dir nur bestimmte sachen rausnimmst und denn Rest "wegwirfst". *g* Ok es wäre vielleicht etwas leichter, wenn du uns sagen würdest, nach was du die html-Dateien durchsuchst. Naja musst ja net ganz genau sage, aber so in die Richtung, ob du irgendwelche Links oder andere Infos rausholen willst. Dann könnten wir dir vielleicht weiter helfen.

Gruss Homer

also des ganze soll mal nen downloadproggie werden...
ursprünglich wollte ich die zeilen jeweils nach "http//:..." und dem dateinamen durchsuchen lassen, und diese dann auslesen...

naja... ich bin jetzt froh das es so mal ****t, auch wenns sicherlich einfachere/bessere lösungen gibt...

jetzt muss ich erstmal die ganzen einzelteile die ich bis jetzt habe zu einem ganzen zusammenfügen und dann folgt auch schon das größte problem: das downloaden der dateien(konnte bisher auch noch keine tutorials o.ä. finden...)

mal schauen ob celvin mir da per irc helfen kann (und vor allem will )
und das forum ist ja auch noch da...

mfg