/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
FSO: Ændre tekstfil
Fra : Jonas Schmeltz Aaber~


Dato : 01-11-03 20:56

Jeg har en tekstfil med en masse links, som jeg gerne vil kunne
ændre i dynamisk fra min side.
Det skal siges, at det kun er meget sjældent, der skal ændres
noget, og når det bliver aktuelt er det en enkelt linie (hverken
første eller sidste!), der skal ændres...

Eks. på tekstfil:
[start]
<%
hyperlinks = Array( _
Array("http://www.html.dk","HTML.dk"), _
Array("http://www.jubii.dk","Jubii.dk"), _
Array("http://www.google.dk","Google.dk"), _
Array("http://www.animationer.dk","Animationer.dk") _
)
%>
[slut]

Hvis jeg så skal ændre f.eks. "google-linien" til:
Array("http://www.yahoo.dk","Yahoo.dk"), _
- Hvordan skal jeg så gøre det?

Jeg er IKKE interesseret i en database-løsning (MSAccess, SQL
m.fl.), men muligheden for at manipulere med de enkelte linier i
tekstfilen!

MVH Jonas (aka Juke)

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Torben Brandt (02-11-2003)
Kommentar
Fra : Torben Brandt


Dato : 02-11-03 18:50

Jonas Schmeltz Aaberg skrev:
> Eks. på tekstfil:
> [start]
> <%
> hyperlinks = Array( _
> Array("http://www.html.dk","HTML.dk"), _
> Array("http://www.jubii.dk","Jubii.dk"), _
> Array("http://www.google.dk","Google.dk"), _
> Array("http://www.animationer.dk","Animationer.dk") _
> )
> %>
> [slut]
>
> Hvis jeg så skal ændre f.eks. "google-linien" til:
> Array("http://www.yahoo.dk","Yahoo.dk"), _
> - Hvordan skal jeg så gøre det?

Du kan indlæse tekstfilen med
set instream = fso.opentextfile(..., 1, False)
content = instream.readall()
lines = split(content, vbcrlf)

Så kan du redigere i array'et lines med
for i = lbound(lines) to ubound(lines)
if cbool(instr(lines(i), "Google.dk")) then
lines(i) = "array(""http://..."", ""...""), _"
end if
next
Her kan du hente relevante tekst-strenge fra en form...

Udskrivning er nok nemmest med
set outstream = fso.opentextfile(..., 2, False)
' Mener '2' betyder skrivning, ellers ret selv
outstream.write join(lines, vbcrlf)

Hvis det var noget andet du mente, så spørg igen :)
Torben


Søg
Reklame
Statistik
Spørgsmål : 177501
Tips : 31968
Nyheder : 719565
Indlæg : 6408527
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste