Hallo Hubert, erstmal Danke, aber es funktioniert leider nicht so.
-----Urspr�ngliche Nachricht----- Von: Hubert Daubmeier [mailto:[EMAIL PROTECTED]] Gesendet: Donnerstag, 21. M�rz 2002 00:05 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] RE: Text aus einem Memofeld spltten 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 | 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
