Teoretisk spm ang. tekst fra database

Der skulle selvfølgelig stå:

....fjerne alle linier der starter med \"A\"

Ja, det er rimeligt let. Først vil jeg anbefale, at du bruger split-kommandoen til at lave et array med de enkelte linier i. Derefter løber du linierne igennem i arrayet, checker om linien begynder med S, og viser den, hvis den gør.

Lidt kode, der nok gør omtrent det, du vil have:

strText = RS(\"Tekst_fra_databasen\")

arrText = split(strText,VbNewline) \' **** Split arrayet ved linieskift

\' **** Løb arrayet igennem
intCounter = 0

while intCounter<UBound(arrText)
  strLine = arrText(intCounter)

  \' **** Check om linien starter med S
  if Left(strLine,1) = \"S\" then
    Response.write strLine & \"<BR>\"
  end if

  intCounter = intCounter + 1
Wend

Der findes jo også nemmere måder at løbe et sådant array igennem:

strtext = rs(\"text\")
arrtext = split(strtext, VBNewline)

for each item in arrtext
if left(item,1) = \"S\" then
response.write item
end if
next

Doh, ja selvfølgeligt. Og så er det endda en del nemmere at læse :)

Det er jo lige det :-)

Jeg takker for svarene :-)

Her er det færdige resultat:

<% Function cleanString(line)
    lineLength = len(line)
    lineLength = lineLength - 2
    cleanString = right(line,lineLength)
End Function %>

<% Function formatSong(sang,mode)
    arrtext = split(sang, VBNewline)
    formatSong = \"\"
    for each item in arrtext
        if left(item,1) = \"S\" then
            formatSong = formatSong & cleanString(item) & vbcrlf
        end if
        if mode = \"med\" then
            if left(item,1) = \"A\" then
                formatSong = formatSong & cleanString(item) & vbcrlf
            end if
        end if
        if item = \"\" then
            formatSong = formatSong & vbcrlf
        end if
    next
End Function %>

np :-)