24. maj 2006 - 20:02
Der er
10 kommentarer og 1 løsning
Frem til første . dog max 100 tegn
Hejsa Jeg har en tekst i et db felt "nyhedstekst" På min oversigt vil jeg gerne læse en del af nyhedsteksten ud. Jeg vil gerne have ud til første ".", men dog max 100 tegn. Det man max 100 tegn har jeg styr på mintekst = left(rs("nyhedstekst"),100) men det er jo kun hvis der ikke er punktum "." inden. Så jeg vil gerne noget alla: if "første_punktum inden 100 tegn" then mintekst = rs("nyhedstekst") frem til første . else mintekst = left(rs("nyhedstekst"),100) end if Nogen der lige kan klare den for mig? Takker
Annonceindlæg fra HP
s = rs("nyhedsteks") p = InStr(s, ".") If p > 0 Then mintekst = Left(s, p) Else mintekst = Left(s, 100) End If
nico26 du er vel nødt til at tilføje AND p<101, da du ellers vil få 105 tegn ud hvis der et punktum på pos 105
ja, det har du har ret i s = rs("nyhedsteks") p = InStr(s, ".") If (p > 0) And (p<101) Then mintekst = Left(s, p) Else mintekst = Left(s, 100) End If
mintekst = Split(Left(rs("nyhedstekst"), 100), ".")(0)
morhan> en del mere elegant :)
morhan 24/05-2006 20:23:05: Hvad gør det sidste (0) i sætningen mintekst = Split(Left(rs("nyhedstekst"), 100), ".")(0)
split laver et array af strenge f.eks Split("a.b.c.d", ".") bliver til ("a", "b", "c", "d") i morhans eksempel er det første element i arrayet teksten før det første punktum. Netop den streng du er interesseret i...
Fino - kan I ikke smide et svar?
lad morhan få points - hans svar var bedst
06. juni 2006 - 13:25
#10
morhan... skulle du have points?
Denne falder vist for aldersgrænsen - og jeg lukker den :-)
Kurser inden for grundlæggende programmering