Eine fertige Prozedur liefert dieses VB4-Projekt, mit
ihm ist es möglich, beliebig langen Text in seine einzelnen Wörter aufzusplitten.
Legen Sie also ein neues VB4-Projekt an und fügen Sie im Abschnitt
Allgemein/Deklarationen folgenden Code ein
Sub subGetWords(ByVal vstrSentence As String, rastrWords() As String)
Dim lngNoOfWords As Long
Dim lngLCV As Long
Dim lngRowNo As Long
Dim strSentenceChar As String For lngLCV = 1 To
Len(vstrSentence)
If Mid$(vstrSentence, lngLCV, 1) = Space$(1) Then
lngNoOfWords = lngNoOfWords + 1
End If
Next lngLCV
ReDim rastrWords(lngNoOfWords + 1)
For lngLCV = 1 To Len(vstrSentence)
strSentenceChar = Mid$(vstrSentence, lngLCV, 1)
If strSentenceChar <> Space$(1) Then
rastrWords(lngRowNo) = rastrWords(lngRowNo) &
strSentenceChar
Else
lngRowNo = lngRowNo + 1
End If
Next lngLCV
End Sub
Desweiteren fügen Sie für einen Test in die Form eine Textbox (Eingabefeld), eine
Listbox (Ausgabefeld) und einen Commandbutton (Lößt die Aktion aus).
Definieren Sie in dem Textfeld einen beliebigen Text und vergeben dem Commandbutton
in der Aktion Click folgenden Code.
ReDim astrWords(2) As String
Dim intLCV As Long
Call subGetWords(Text1.Text, astrWords()) 'Eingabefeld
List1.Clear
For intLCV = 0 To UBound(astrWords)
List1.AddItem astrWords(intLCV) 'Ausgabefeld
Next intLCV
Testen Sie's und entscheiden Sie selbst, wie brauchbar der Tipp für Sie ist, denn man
weiß ja nie ob man es nicht doch mal braucht. |
