Skracivanje teksta iz baze

[ shone78 @ 02.12.2004. 13:42 ] @

Ne znam da li ovo moze i da li cu dobro objasniti problem.
U pitanju je tekst (od npr. 250 reci) koji sam izvukao iz baze. Meni je potrebno da ga ja na neki nacin smanjim i da prikazem, recimo, samo prvih 100 reci gde ce se dodatnim linkom ici da kompletan tekst
Kako ovo izvesti

Hvala unapred

[ mladenovicz @ 02.12.2004. 13:56 ] @

Imas funkciju Left koja vraca prvih n karaktera od stringa, a ako hoces bas reci onda pogledaj funkcije Split i Join koje od stringa prave array, odnosno od arraya string, pa uradis Split, uzmes prvih n elemenata pa uradis Join

[ shone78 @ 02.12.2004. 16:26 ] @

Koristila mi je funkcija Left, dok sa Split i Join nisam uspeo da postignem ono sto sam hteo

Hvala

[ mladenovicz @ 02.12.2004. 16:40 ] @

Code:

Private Sub Command1_Click()
    Dim MainString  As String

    MainString = "rec1 rec2 rec3 rec4 rec5 rec6 rec7 rec8 rec9 rec10"
    MsgBox ShortString(MainString, 5)
End Sub

Public Function ShortString(str As String, NumOfWords As Integer) As String
    Dim arrWords()  As String

    arrWords = Split(str, " ")
    ReDim Preserve arrWords(NumOfWords - 1) '-- zero based

    ShortString = Join(arrWords)
End Function

[ shone78 @ 03.12.2004. 11:10 ] @

Ja sam zaboravio da napomenem da je u pitanju ASP tj. VBscript a ne VB
U svakom slucaju hvala na trudu

[ vujkev @ 04.12.2004. 00:38 ] @

Ovo radi i u VBScriptu tj na ASP stranicama

[ shone78 @ 04.12.2004. 10:39 ] @

I sa svim izmenama koje sam mislio da treba uraditi da se prilagodi ASP-u uvek mi je izbacivao gresku u redu

Code:
Function ShortString(str As String, NumOfWords As Integer) As String

[ mladenovicz @ 04.12.2004. 12:25 ] @

Probaj

Code:

Function ShortString(str, NumOfWords)

[ shone78 @ 04.12.2004. 13:18 ] @

Ovo nece da radi, izbacuje gresku Type mismatch. Mozda ja gresim negde

Code:
    Dim MainString

    MainString = "rec1 rec2 rec3 rec4 rec5 rec6 rec7 rec8 rec9 rec10"
response.write ShortString(MainString, 5)

Function ShortString(str, NumOfWords)
    Dim arrWords()

    arrWords = Split(str, " ")

    ShortString = Join(arrWords)
End Function

[ mladenovicz @ 04.12.2004. 15:31 ] @

Umesto

Code:

Dim arrWords()

stavi

Code:

Dim arrWords

[ shone78 @ 05.12.2004. 14:10 ] @

Ovo vec postaje nocna mora :)
Nema gresaka, ali se ne desava ono sto bi trebalo da se desi po kodu. Prikazuje mi svih 10 reci, iako bi trebalo samo prvih 5

Pozdrav

[ mladenovicz @ 05.12.2004. 14:31 ] @

naravno da prikazuje svih 10 reci kad nigde nemas Redim Preserve

[ shone78 @ 05.12.2004. 15:49 ] @

Hvala! Sada radi perfektno

[ Marko[VOP] @ 07.12.2004. 01:24 ] @

mozes li sad da napises komplet sa tim redim preserve... pls

poz

[ shone78 @ 07.12.2004. 09:01 ] @

Za prikaz odredjenog broja reci:

Code:

Dim MainString
    MainString = "rec1 rec2 rec3 rec4 rec5 rec6 rec7 rec8"
    response.write ShortString(MainString, 5)

Function ShortString(str, NumOfWords)
    Dim arrWords
    arrWords = Split(str, " ")
    ReDim Preserve arrWords(NumOfWords - 1) '-- zero based
    ShortString = Join(arrWords)
End Function

Za prikaz odredjenog broja slova:

Code:

response.write Left(MainString, 10)

ili

Code:

response.write Right(MainString, 10)

Pozdrav