Von |
Manne |
eMail |
|
Am |
27. März 2008 um 16:40:13 |
Frage |
Ich habe eine Textdatei, aus der ich alle Wörter herausholen möchte, das Problem ist, dass auch Zeilenumbrüche und Sonderzeichen darin vorkommen. Soweit bin ich schon:Dim pos1 Dim wort As Boolean Dim str Dim i For i = 1 To (Len(Form1.Text1.Text) ) pos1 = Mid(Form1.Text1.Text, i, 1) If pos1 <> " " And pos1 <> vbCr And pos1 <> ")" And pos1 <> "(" And pos1 <> "-" And pos1 <> ":" Then str = str & pos1 wort = True Else If Len(str) > 1 Then Auflisten(str) wort = False str = Empty End If End If Next Nur hab ich da das problem, dass es die Zeilenumbrüche nicht zu erkennen scheint :(
Außerdem würde ich die Wörter gerne mit einer Liste vergleichen, und es nur dann in die Liste aufnehmen, wenn es dort nicht bereits vorkommt. |
|