> 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....
>
Ein Int ist 16-bittig.. Kan gut sein, dass Dein String l�nger ist...
Versuchs mit Int() oder CLng() ....
Ansonsten: Ist Dir klar, dass Du 1:2:1 aufteilst? Sollen die Texte nicht
ca. gleich gross sein?
Hier nochmal Dein Code korrigiert:
Text = objRec2("Description")
iLen = len(Text)
iCut1= instr(Int(iLen/3),Text,".")
iCut2= instr(Int(2*iLen/3),Text,".")
strT1= left(Text,iCut1)
strT2= mid(Text,iCut1+1,iCut2-iCut1)
strT3= right(Text,iLen-iCut2)
Claudius
| [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
