Tekstitiedoston sisällön listaus hyperlinkeiksi

on ihan kertaluonteinen, tekisin sen kyllä
jonkin tekstieditorin korvaa-toiminnolla
nopeimmin.

Jos noita on paljon niin sitten...mutta sittenkin
editorin oma makrokieli tuntuisi parhaalta.

Vai onko tarkoitus homma jotenkin selain/palvelinhommana hoitaa?

en päässy ite testaamaan tätä nyt, heitin vaan jotain äkkiä kasaan... toivottavasti tästä kuitenkin edes jotain apua, esim suunnannäyttäjänä jne.. :)




Dim aPosURL
aPosURL = Array()
vURLCount = CInt(0)
Set SerCreObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set vURLPicker = SerCreObjFSO.OpenTextFile(Server.MapPath("urllist.txt"),1)
Do While vURLPicker.AtEndOfStream True
vURLCount = vURLCount 1
Loop
vURLPicker.Close
Set vURLPicker = Nothing
Set SerCreObjFSO = Nothing
vURLCount = vURLCount - 1
ReDim aPosURL(vURLCount)
vURLCount = CInt(0)
Set SerCreObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set vURLPicker = SerCreObjFSO.OpenTextFile(Server.MapPath("urllist.txt"),1)
Do While vURLPicker.AtEndOfStream True
aPosURL(vURLCount) = vURLPicker.ReadLine
vURLCount = vURLCount 1
Loop
vURLPicker.Close
Set vURLPicker = Nothing
Set SerCreObjFSO = Nothing
vURLCount = vURLCount - 1

For x = 0 To vURLCount
Response.Write "" & aPosURL(x) & ""
Next