Eine Variante (Quickhack hab es nicht ausprobiert)
Zeile = "23 Text Text Text " & vbcrlf
NeueZeile = MeinTrenner(Zeile)
Function MeinTrenner (sText)
Dim i
For i = 1 to Len(sText)
a = mid(sText, i, 1)
if a >= "0" and a <= "9" Then
num = num & a
Elseif a = " " Then
MeinTrenner = num & vbcrlf & Mid(sText, i+1)
Else
Exit For
End If
Next
End Function
BTW: einen Anf�ngerguide habe ich auf http://www.neusob.de/scripting/
--
Viele Gr��e
Hubert Daubmeier
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
