ne, sorry, krieg ich ned hin. Keinen blasen Dunst wo, wie,
was, wann ich hier wo ansetzten soll.
Die Wörter zählen geht, dass bekomm ich auch hin.
Also den Inhalt der Text1 ausgeben und die Wörter der text1
zählen geht. Nur wie ich dann eben hier nur das mittlere bzw
dritte Wort ausgeben…sorry, check ich nicht.
Hallo Rolf,
die Wörter zählen zu können ist doch schon ein Teil der Lösung.
Zeige mal bitte den Code der sie zählt.
Gruß
Reinhard
Hallo,
klar, muss ja n Teil sein. 
) Sonst weiss er ja ned welches das dritte Wort is und so nech )))
Ich hab jetzt mal mit nem Satz versucht der am Ende mit nem Punkt abgeschlossen wird -->
Dim Text As String, Punkt As String
Dim Position As Integer, Wörter As Integer, Zeichen As Integer
Text = Text1
Position = 1
Wörter = 1
Zeichen = 0
Text = Trim(Text)
Do Until Punkt = "."
Punkt = Mid(Text, Position, 1)
Position = Position + 1
If Punkt = " " Then
Wörter = Wörter + 1
End If
Loop
If Wörter \> 3 Then
Label2 = Text
End If
Label1 = Wörter
Ich weiss, ned die Lösung bzw Ansatz den ihr euch vorgestellt habt, aber es klappt )
Gruß Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Ok, das hat was
Wirft zwar bei zwei Wörtern n Fehler auf , aber seis drum.
Ich druck mir das mal aus und werds studieren!
Denke sowas bingt mich n Schritt weiter.
Wenn ich mehr Zeit dafür hätte mich intesiv damit zu beschäftigen…, aber wenn man no zig andere „Baustelle“ (PHP und JAVA-Prgrammierungen zuliegen hat…
Danke euch dreien auf alle Fälle mal für eure Geduld und Hilfe.
Gruß Rolf
p. s. Ich denke den Thread kann man als erledigt ansehen, wenn ich die Text-Inhalt-Suche totzdem ned hinbekomm, meld ich mich wieder mit neuem Tread.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Rolf,
Ok, das hat was
Wirft zwar bei zwei Wörtern n Fehler auf , aber seis drum.
Ich druck mir das mal aus und werds studieren!
Fehler? Der Code ist bei mir ohne Problem gelaufen.
Oder versthst Du etwas nicht? Dann erzähl was, es könnte wichtig sein.
p. s. Ich denke den Thread kann man als erledigt ansehen, wenn
ich die Text-Inhalt-Suche totzdem ned hinbekomm, meld ich mich
wieder mit neuem Tread.
OK, aber ich werde es trotzdem stehen lassen, eventuell findet ja noch Jemand etwas, das ihn interessiert. Ein paar fertige Codes gibt es ja inzwischen.
Wenn Du neue Fragen stellst, schreibe ich den Code nur, von dem Du weißt, daß es richtig ist.
Ach ja, Debugger. Inzwischen ausprobiert?
Gruß Rainer
Moin,
klar „versteh“ ich den Code so weit, nur - gib mal nur zwei Worte an…
Aber das is jetzt egal. ))
Debugger schau ich mir morgen an, heute arbeiten.
Gruß Rolf
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi,
klar „versteh“ ich den Code so weit, nur - gib mal nur zwei
Worte an…
ahhh, ja, hab’ ich getan.
Mir ist auch klar, warum das zu einem Fehler führt. Dir auch?
Das letzte Wort soll ‚ausgeschnitten‘ werden, dazu soll die Position der Leerzeichen vor und nach diesem Wort ermittelt werden. Nach dem Wort steht aber gar kein Leerzeichen, das würde im Array an der letzten Stelle stehen, die aber fehlt.
Um den Fehler zu beseitigen müsste am Code einiges geändert werden. Ich weiß auch was und hab’s mal getippt, geht.
Gruß Rainer