Magnus wrote:
> Jeg har en nyhedstekst i en database
>
> Når den hentes og vises så vil jeg have kontrolleret teksten for tegnene []
> som indikere en kode som fx.
>
> [F210] skal i teksten erstattes med: "<img src=""210.jpg"" border=""0"">"
> og
> [L86] med "<a href=""links.asp?id=86"">86</a>"
>
> Bogstavet bestemmer hvilken type det er og nr. er et id-nr til at hente det
> fra databasen.
>
> Er der en der har en god ide til hvordan man laver sådan sine egne koder i
> en tekst?
Hei Magnus.
Jeg tror dette bør deles opp i (minst) 2 operasjoner. Her er et forslag
som først sjekker om nyhetsteksten inneholder tegnene [], og deretter
erstatter dem med html tagger. Denne koden forutsetter bl. a. at tegnene
[] kun opptrer én gang, at de starter med en bokstav og avsluttes med
kun tall osv.
Dim m_sNyhetsTekst
m_sNyhetsTekst = "Dette er en test [F210] som slutter her"
'm_sNyhetsTekst = "Dette er en test [L86] som slutter her"
Response.Write ParseNyhetsTekster
'------------------------------------------------------------------------------------------------------------
' Comment:
'------------------------------------------------------------------------------------------------------------
Function ParseNyhetsTekster()
' On Error Resume Next
Dim sKode
Dim sBokstav
Dim sTall
Dim sNyTekst
sKode = FinnKlammer(m_sNyhetsTekst)
If Len(sKode) = 0 Then Exit Function
sBokstav = UCase(Mid(sKode, 1, 1))
sTall = Mid(sKode, 2, Len(sKode))
Select Case sBokstav
Case "F"
sNyTekst = Replace(m_sNyhetsTekst, "[" & sKode & "]", "<img
src=""" & sTall & ".jpg"" border=""0"">")
Case "L"
sNyTekst = Replace(m_sNyhetsTekst, "[" & sKode & "]", "<a
href=""links.asp?id=" & sTall & ">" & sTall & "</a>")
Case Else
End Select
ParseNyhetsTekster = sNyTekst
End Function
'------------------------------------------------------------------------------------------------------------
' Comment: Returner alle tegn mellom klammene [].
'------------------------------------------------------------------------------------------------------------
Function FinnKlammer(sNyhetsTekst)
' On Error Resume Next
Dim iTeller1
Dim iTeller2
Dim iLen
Dim sTegn
Dim sToken
Dim bGyldig
iLen = Len(sNyhetsTekst)
'Vi legger inn en sjekk her for å unngå feilmeldinger i tilfelle
ingen tekst.
If iLen = 0 Then Exit Function
'Loop igjennom hele teksten for å finn tegnet [
For iTeller1 = 1 To iLen
sTegn = Mid(sNyhetsTekst, iTeller1, 1)
If sTegn = "[" Then
'Vi fant tegnet [ og starter en ny loop for å finne avsluttende
klamme: ]
For iTeller2 = (iTeller1 + 1) To iLen
sTegn = Mid(sNyhetsTekst, iTeller2, 1)
If sTegn <> "]" Then
sToken = (sToken & sTegn)
Else
'Vi fant avsluttende ], setter et flagg og avslutter vår loop.
bGyldig = True
Exit For
End If
Next
End If
Next
'Her bør legges inn en kontroll for å sikre at vi har funnet det vi
tror vi fant. Tallet 4 er bare vilkårlig.
If Len(sToken) > 4 Or Not bGyldig Then sToken = ""
FinnKlammer = sToken
End Function