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
5
472
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
Joensuun kaupunki levittelee tonttitietoja Keskisuomalaiselle
Sähköposteja ja tonttitietoja levitellään mm. Pasi Koivumaalle273395Tiesitkö tätä ex-miehistä? Noriko Salo jysäytti yllätyspaljastuksen
Noriko Salo ja ex-F1 kuski Mika Salo olivat naimisissa v. 1999-2022. Kirsi Salon ex-mies puolestaan on muusikko Sammy A122519Kuka? Riehui valtuuston kokouksessa tänään ?
Onko puolangan puolesta porukkaa. Vaikuttaa siltä. Sairasta.972461Huh, huh! Sofia Belorf ei ole itse pessyt hiuksiaan kolmeen vuoteen
Sofia Belorf elää ökyelämää Dubaissa. Sofian arjessa kulta, raha ja luksus ovat vahvasti läsnä. Luksuselämään tottuneell1072134Toivoisitko Rakas vielä?
Haluaisitko vielä? Uskoisin osaavani näyttää sinulle, kuinka ainutlaatuinen nainen olet.761693Ihan pieni näkeminen vaan
👋 ja minä olisin valmis jo vaikka mihin sun kanssa. Nämä on näitä.. 🤫🫣😘💥481584Sointu Borg tilittää - Ei suostu enää tähän työhön: "Katastrofi"
Sointu Borg on mediapersoona, joka löi itsensä läpi Diili-realityssä. Borg on monipuolinen tekijä: mediapersoona, juonta261506Keskustelua kasteesta
You tubessa kaksi pappia keskustelivat kasteesta ja kritisoivat raamatullista uskovien kastetta. Toinen heistä yritti4001305- 1341245
Tulipalo viimeyönä
Olipa ikävä kuulla tämä tulipalo, nyt on jatkuvasti asuinpaloja.Grillikausi alkanut.Grillit pois parvekkeilta ja asuntoj151146