txt filer og load af linier.

<%
Set FS = CreateObject("Scripting.FileSystemObject") 'starter filsystem
Set filen = FS.OpenTextFile(server.mappath("minfil.txt")) 'den specefikke fil
while filen.AtEndOfStream <> True 'køre løkken til filen er tom
  linie = filen.readline
  IF not linie = "" THEN ' hvis der står noget i linien
  linie = mid(linie,instr(linie,":")+1, len(linie)) ' finder tekst efter :
  response.write linie & "<br />" ' skriver teksten ud
  END IF
wend

filen.close ' lukker


%>

Det virker... :)

Hvis nu at jeg gerne vil lave et if eller select case på det der er før :, hvordan gør jeg så det???

linie = filen.readline
titel = left(linie,instr(linie,":")-1)
select case titel
case "mor"
  'sker et eller andet
case "far"
' sker et ellet andet
case "bror"
' sker et eller andet
case "job"
' sker  et eller andet
end select

husk at skrive det her inde i if sætningen, ellers får du en fejl
titel = left(linie,instr(linie,":")-1)
select case titel
case "mor"
  'sker et eller andet
case "far"
' sker et ellet andet
case "bror"
' sker et eller andet
case "job"
' sker  et eller andet
end select

Det fungere sku ikke--.-.

Jeg kunne godt tænke mig noget ala.

sektion = det der er før :
tekst = det der er efter :

det her kode .:
<%
Set FS = CreateObject("Scripting.FileSystemObject")
Set filen = FS.OpenTextFile(server.mappath("minfil.txt"))
while filen.AtEndOfStream <> True
  linie = filen.readline
 
  IF not linie = "" THEN
  titel = left(linie,instr(linie,":")-1) 
  linie = mid(linie,instr(linie,":")+1, len(linie))
  response.write titel & " " & linie & "<br />"
  END IF
wend

filen.close

giver følgende
mor tralalalala og så ost.
far lort og pis
bror ahhhh skod unge
job jubii microsoft

kan det bruges

Der er sku noget galt med det tekst der... I filen kan der også komme andre ting som < ost > osv... Men det er kun hvor der ingår : i linien der skal med

nå..men det kunne jo do bare have sagt ik

<%
Set FS = CreateObject("Scripting.FileSystemObject")
Set filen = FS.OpenTextFile(server.mappath("minfil.txt"))
while filen.AtEndOfStream <> True
  linie = filen.readline
 
  IF not linie = "" THEN
  IF inStr(linie,":") THEN
    titel = left(linie,instr(linie,":")-1) 
    linie = mid(linie,instr(linie,":")+1, len(linie))
    response.write titel & " " & linie & "<br />"
  END IF
  END IF
wend

filen.close

IF inStr(linie,":") <> 0 THEN

um hallo ?