Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
16.02.2012. PostgreSQL vs MySQL vs ORACLE
07.07.2002. Izdvajanje teksta
05.11.2002. sendmail-auth iz Baze Podataka
23.01.2003. Update baze preko WebService-a
08.02.2003. Pozicija kursora u editu
17.10.2008. Brisanje baze?
11.10.2012. C++ => potrebna sintaksa za ispis teksta na st..
17.09.2014. prevod teksta engleski-> srpski
27.10.2004. unos velike kolicine teksta

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Skracivanje teksta iz baze

[es] :: Visual Basic 6 :: Skracivanje teksta iz baze

[ Pregleda: 4366 | Odgovora: 14 ] > FB > Twit

Autor

shone78
Nenad Simic
web developer
Beograd

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

+1 Profil

Skracivanje teksta iz baze

^{02.12.2004. u 13:42 - pre 236 meseci}

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

Odgovor na temu

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

Član broj: 6598
Poruke: 2065
*.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 - pre 236 meseci}

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

Odgovor na temu

shone78
Nenad Simic
web developer
Beograd

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

+1 Profil

Re: Skracivanje teksta iz baze

^{02.12.2004. u 16:26 - pre 236 meseci}

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

Hvala

Odgovor na temu

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

Član broj: 6598
Poruke: 2065
*.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 16:40 - pre 236 meseci}

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

Odgovor na temu

shone78
Nenad Simic
web developer
Beograd

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

+1 Profil

Re: Skracivanje teksta iz baze

^{03.12.2004. u 11:10 - pre 236 meseci}

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

Odgovor na temu

vujkev
Beograd

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

+104 Profil

Re: Skracivanje teksta iz baze

^{04.12.2004. u 00:38 - pre 236 meseci}

Ovo radi i u VBScriptu tj na ASP stranicama

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

Odgovor na temu

shone78
Nenad Simic
web developer
Beograd

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

+1 Profil

Re: Skracivanje teksta iz baze

^{04.12.2004. u 10:39 - pre 236 meseci}

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

Odgovor na temu

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

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

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

Profil

Re: Skracivanje teksta iz baze

^{04.12.2004. u 12:25 - pre 236 meseci}

Probaj

Code:

Function ShortString(str, NumOfWords)

Odgovor na temu

shone78
Nenad Simic
web developer
Beograd

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

+1 Profil

Re: Skracivanje teksta iz baze

^{04.12.2004. u 13:18 - pre 236 meseci}

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

Odgovor na temu

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

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

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

Profil

Re: Skracivanje teksta iz baze

^{04.12.2004. u 15:31 - pre 236 meseci}

Umesto

Code:

Dim arrWords()

stavi

Code:

Dim arrWords

Odgovor na temu

shone78
Nenad Simic
web developer
Beograd

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

+1 Profil

Re: Skracivanje teksta iz baze

^{05.12.2004. u 14:10 - pre 236 meseci}

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

Odgovor na temu

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

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

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

Profil

Re: Skracivanje teksta iz baze

^{05.12.2004. u 14:31 - pre 236 meseci}

naravno da prikazuje svih 10 reci kad nigde nemas Redim Preserve

Odgovor na temu

shone78
Nenad Simic
web developer
Beograd

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

+1 Profil

Re: Skracivanje teksta iz baze

^{05.12.2004. u 15:49 - pre 236 meseci}

Hvala! Sada radi perfektno

Odgovor na temu

Marko[VOP]
Marko Kornic
Beograd

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

Profil

Re: Skracivanje teksta iz baze

^{07.12.2004. u 01:24 - pre 235 meseci}

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

poz

Odgovor na temu

shone78
Nenad Simic
web developer
Beograd

Član broj: 3718
Poruke: 19
213.244.197.*

+1 Profil

Re: Skracivanje teksta iz baze

^{07.12.2004. u 09:01 - pre 235 meseci}

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

Odgovor na temu

[es] :: Visual Basic 6 :: Skracivanje teksta iz baze

[ Pregleda: 4366 | Odgovora: 14 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
16.02.2012. PostgreSQL vs MySQL vs ORACLE
07.07.2002. Izdvajanje teksta
05.11.2002. sendmail-auth iz Baze Podataka
23.01.2003. Update baze preko WebService-a
08.02.2003. Pozicija kursora u editu
17.10.2008. Brisanje baze?
11.10.2012. C++ => potrebna sintaksa za ispis teksta na st..
17.09.2014. prevod teksta engleski-> srpski
27.10.2004. unos velike kolicine teksta

Navigacija

Lista poslednjih: 16, 32, 64, 128 poruka.