Hallo,
Ich habe 2 Probleme ich will ein Text in 3 Teile hacken.
Nur der dritte teil ist falsch da ist oft bei langen texten
dann Sachen drin die schon im zweiten teil drin waren (doppelt)
Und bei sehr langen Texten bekomme ich die meldung:
Laufzeitfehler in Microsoft VBScript- Fehler '800a0006'
�berlauf: 'cInt'
Ich suche mir schon den Wolf....
Wer hat ein Tip und kann helfen ??
Gru� Michael
Text = objRec2("Description")
intAll = len(Text)
intTeil1 = cInt(intAll / 4)
intTeil1 = instr(intTeil1,Text,".")
strTeil1 = left(Text,intTeil1)
' Zweite aufteilung
intTeil2 = cInt((intAll / 4)*3)
intTeil2 = instr(intTeil2,Text,".")
strTeil2 = mid(Text,intTeil1, intTeil2-1)
' Dritte aufteilung
strTeil3 = right(Text, intAll - intTeil2)
Response.Write FormatStr(strTeil1)
Response.Write FormatStr(strTeil2)
Response.Write FormatStr(strTeil3)
%>
| [aspdedatabase] als archive@jab.org subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
