Tekstitiedoston sisältö tulisi listata hyperlinkeiksi. Tekstitiedosto sisältää kansioiden täydellisen osoitteen. PHP ei käy, mielellään vbscriptillä.
Tekstitiedoston sisällön listaus hyperlinkeiksi
Teksti
5
387
Vastaukset
- as-keetti
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?- Teksti
sisältö muuttuu tiheästi, joten päivityksen tulisi olla automaattinen.
- nyt pyytää
Teksti kirjoitti:
sisältö muuttuu tiheästi, joten päivityksen tulisi olla automaattinen.
jotakuta koodaamaan koko progen puolestasi.
Minulla on just samantapaisiin hommiin muutama
C-pohja, mutta tehtävänanto on
kyllä hieman hatara. Ei edes näytettä
tiedostostasi, millainen rakenne, kukin osoite
omalla rivillään vai teksti yhtä pötköä?
Ihan vihjeeksi voin sanoa, että tee homma kahdessa
ajossa.
Eka läpikäynti lisää ennen ja jälkeen osoitteen sopivan erottimen jota muussa tekstissä ei ole.
Toinen läpikäynti muuttaa sitten nämä erottimet
html-tageiksi.
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) & ""
Nexttestasin..
ja samalla korjasin ;)
jos haluat kurkkaa toimivaa vastaavaa niin katso tuolta ylempää otsikolla propellihatuille pähkinää
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Aivosyöpää sairastava Olga Temonen TV:ssä - Viimeinen Perjantai-keskusteluohjelma ulos
Näyttelijä-yrittäjä Olga Temonen sairastaa neljännen asteen glioomaa eli aivosyöpää, jota ei ole mahdollista leikata. Hä912900Pelotelkaa niin paljon kuin sielu sietää.
Mutta ei mene perille asti. Miksi Venäjä hyökkäisi Suomeen? No, tottahan se tietenkin on jos Suomi joka ei ole edes soda2991676Mikä saa ihmisen tekemään tällaista?
Onko se huomatuksi tulemisen tarve tosiaan niin iso tarve, että nuoruuttaan ja tietämättömyyttään pilataan loppuelämä?2461547- 871391
IL - VARUSMIEHIÄ lähetetään jatkossa NATO-tehtäviin ulkomaille!
Suomen puolustuksen uudet linjaukset: Varusmiehiä suunnitellaan Nato-tehtäviin Puolustusministeri Antti Häkkänen esittel4021374Nyt kun Pride on ohi 3.0
Edelliset kaksi ketjua tuli täyteen. Pidetään siis edelleen tämä asia esillä. Raamattu opettaa johdonmukaisesti, että3981292Kiitos nainen
Kuitenkin. Olet sitten ajanmerkkinä. Tuskin enää sinua näen ja huomasitko, että olit siinä viimeisen kerran samassa paik21079Esko Eerikäinen tatuoi kasvoihinsa rakkaan nimen - Kärkäs kommentti "Ritvasta" lävähti somessa
Ohhoh! Esko Eerikäinen on ottanut uuden tatuoinnin. Kyseessä ei ole mikä tahansa kuva minne tahansa, vaan Eerikäisen tat381037Hyväksytkö sinä sen että päättäjämme ei rakenna rauhaa Venäjän kanssa?
Vielä kun sota ehkäpä voitaisiin välttää rauhanponnisteluilla niin millä verukkeella voidaan sanoa että on hyvä asia kun329874Miksi Purra-graffiti ei nyt olekkaan naisvihaa?
"Pohtikaapa reaktiota, jos vastaava graffiti olisi tehty Sanna Marinista", kysyy Tere Sammallahti. Helsingin Suvilahden257855