[es] - Skracivanje teksta iz baze

shone78
Nenad Simic
Beograd

Član broj: 3718
Poruke: 16
*.verat.net.

Profil

^{02.12.2004. u 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

^{02.12.2004. u 13:42}

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Skracivanje teksta iz baze

^{02.12.2004. u 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

Blue Man Group

^{02.12.2004. u 13:56}

shone78
Nenad Simic
Beograd

Član broj: 3718
Poruke: 16
*.verat.net.

Profil

Re: Skracivanje teksta iz baze

^{02.12.2004. u 16:26}

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

Hvala

^{02.12.2004. u 16:26}

Re: Skracivanje teksta iz baze

^{02.12.2004. u 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

Blue Man Group

^{02.12.2004. u 16:40}

shone78
Nenad Simic
Beograd

Član broj: 3718
Poruke: 16
*.vdial.verat.net.

Profil

Re: Skracivanje teksta iz baze

^{03.12.2004. u 11:10}

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

^{03.12.2004. u 11:10}

vujkev
Darko Vujičić
Telekom Srbija AD
Beograd

Član broj: 8072
Poruke: 811
*.telekom.yu.

Profil

Re: Skracivanje teksta iz baze

^{04.12.2004. u 00:38}

Ovo radi i u VBScriptu tj na ASP stranicama

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

^{04.12.2004. u 00:38}

shone78
Nenad Simic
Beograd

Član broj: 3718
Poruke: 16
*.vdial.verat.net.

Profil

Re: Skracivanje teksta iz baze

^{04.12.2004. u 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

^{04.12.2004. u 10:39}

Re: Skracivanje teksta iz baze

^{04.12.2004. u 12:25}

Probaj

Code:

Function ShortString(str, NumOfWords)

Blue Man Group

^{04.12.2004. u 12:25}

shone78
Nenad Simic
Beograd

Član broj: 3718
Poruke: 16
*.verat.net.

Profil

Re: Skracivanje teksta iz baze

^{04.12.2004. u 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

^{04.12.2004. u 13:18}

Re: Skracivanje teksta iz baze

^{04.12.2004. u 15:31}

Umesto

Code:

Dim arrWords()

stavi

Code:

Dim arrWords

Blue Man Group

^{04.12.2004. u 15:31}

shone78
Nenad Simic
Beograd

Član broj: 3718
Poruke: 16
*.vdial.verat.net.

Profil

Re: Skracivanje teksta iz baze

^{05.12.2004. u 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

^{05.12.2004. u 14:10}

Re: Skracivanje teksta iz baze

^{05.12.2004. u 14:31}

naravno da prikazuje svih 10 reci kad nigde nemas Redim Preserve

Blue Man Group

^{05.12.2004. u 14:31}

shone78
Nenad Simic
Beograd

Član broj: 3718
Poruke: 16
*.yu
Via: [es] mailing liste

Profil

Re: Skracivanje teksta iz baze

^{05.12.2004. u 15:49}

Hvala! Sada radi perfektno

^{05.12.2004. u 15:49}

Marko[VOP]
Beograd

Član broj: 12488
Poruke: 83
*.dial.abc.co.yu.

Profil

Re: Skracivanje teksta iz baze

^{07.12.2004. u 01:24}

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

poz

^{07.12.2004. u 01:24}

shone78
Nenad Simic
Beograd

Član broj: 3718
Poruke: 16
213.244.197.*

Profil

Re: Skracivanje teksta iz baze

^{07.12.2004. u 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

^{07.12.2004. u 09:01}