Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text nach Zeichenfolge durchsuchen

Text nach Zeichenfolge durchsuchen
02.03.2004 17:30:22
Konrad F.
moin moin ihr da,
irgendwie stehe ich momentan etwas auf dem schlauch, bestimmt
koennt ihr mir aber dabei helfen.
und zwar folgendes problem:
mein vba liest eine textdatei mittels application.filesearch
ein und ich will ueberpruefen ob eine bestimmte zeichenfolge
vorkommt. die zeichenfolge ist z.b. folgendermassen aufgebaut
4,?,4 wobei das Fragezeichen bedeutet dass dies ein eine oder
zwei beliebige ziffern sein koennen.
wie mache ich das am besten?
vielen dank schon mal
kf

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text nach Zeichenfolge durchsuchen
02.03.2004 17:32:14
Ulf
Suchen nach: 4,?,4
Ulf
AW: Text nach Zeichenfolge durchsuchen
02.03.2004 17:38:28
Konrad F.
moin ulf,
hmm, dacht ich mir auch aber irgendwie will das nicht
so recht hinhauen ... wie wuerde das in code ausschauen?
thnxx
kf
AW: Text nach Zeichenfolge durchsuchen
02.03.2004 17:45:05
Ulf
cells.find(what:="4,?,4",lookat:=xlPart).activate
Ulf
AW: Text nach Zeichenfolge durchsuchen
02.03.2004 17:49:55
Konrad F.
remoin ulf,
genau das will ich ja nicht machen ... ich oeffne eine
DATEI und parse diese zeile fuer zeile und schreibe
den aktuellen zeilenwert in eine variable und den string
moechte ich gerne nach der kombination durchsuchen nicht
eine zelle ...
kf
AW: Text nach Zeichenfolge durchsuchen
02.03.2004 17:54:42
Ulf
Cells bedeutet alle Zellen, nicht eine!
Ulf
AW: Text nach Zeichenfolge durchsuchen
02.03.2004 17:58:42
Konrad F.
nochmals,
ich habe KEINE zellen! parse ein TEXTFILE
Set fs = Application.FileSearch
If DateiPruefen(LESUNGSPFAD + LESUNGSFILE) Then
With fs
.LookIn = LESUNGSPFAD
.fileName = LESUNGSFILE
.Execute
Open .FoundFiles(1) For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
If InStr(sTxt, "0,0,1,1") Then
...
u.s.w sTxt muss nach 4,?,4 durchsucht werden
kf
Anzeige
AW: Text nach Zeichenfolge durchsuchen
02.03.2004 18:10:54
Ulf
Mea culpa, falsch verstanden und auch keinen Plan.
Ulf
NOCH OFFEN
02.03.2004 18:19:19
Ulf
ll
Vergleich mit Like
02.03.2004 18:56:16
Alex K.
Hallo Konrad,
versuche mal mit
If sTxt Like "*4,*,4*" Then
da ich nicht genau weis, wie dein String genau aussieht, musst du halt probieren, welcher Vergleichstext für deine Anforderung passt.
AW: Vergleich mit Like
02.03.2004 19:09:39
Konrad F.
Danke Alex fuer den Tip,
werde es gleich mal ausprobieren
kf
Danke für die Rückmeldung oT
02.03.2004 19:36:35
Alex K.

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige