Skracivanje teksta iz baze

Skracivanje teksta iz baze 02.12.2004. u 14:42 · pre 266 meseci #1

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

Re: Skracivanje teksta iz baze 02.12.2004. u 14:56 · pre 266 meseci #2

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

Potpis

Blue Man Group

Re: Skracivanje teksta iz baze 02.12.2004. u 17:26 · pre 266 meseci #3

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

Hvala

Re: Skracivanje teksta iz baze 02.12.2004. u 17:40 · pre 266 meseci #4

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

Potpis

Blue Man Group

Re: Skracivanje teksta iz baze 03.12.2004. u 12:10 · pre 266 meseci #5

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

Re: Skracivanje teksta iz baze 04.12.2004. u 01:38 · pre 266 meseci #6

Ovo radi i u VBScriptu tj na ASP stranicama

Potpis

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

Re: Skracivanje teksta iz baze 04.12.2004. u 11:39 · pre 266 meseci #7

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

Re: Skracivanje teksta iz baze 04.12.2004. u 13:25 · pre 266 meseci #8

Probaj

Code:

Function ShortString(str, NumOfWords)

Potpis

Blue Man Group

Re: Skracivanje teksta iz baze 04.12.2004. u 14:18 · pre 266 meseci #9

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

Re: Skracivanje teksta iz baze 04.12.2004. u 16:31 · pre 266 meseci #10

Umesto

Code:

Dim arrWords()

stavi

Code:

Dim arrWords

Potpis

Blue Man Group

Re: Skracivanje teksta iz baze 05.12.2004. u 15:10 · pre 266 meseci #11

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

Re: Skracivanje teksta iz baze 05.12.2004. u 15:31 · pre 266 meseci #12

naravno da prikazuje svih 10 reci kad nigde nemas Redim Preserve

Potpis

Blue Man Group

Re: Skracivanje teksta iz baze 05.12.2004. u 16:49 · pre 266 meseci #13

Hvala! Sada radi perfektno

Re: Skracivanje teksta iz baze 07.12.2004. u 02:24 · pre 266 meseci #14

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

poz

Re: Skracivanje teksta iz baze 07.12.2004. u 10:01 · pre 266 meseci #15

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

Forum kao aplikacija na telefonu

Srodne teme