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
448
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
SDP jo 100 % suositumpi kuin persut
Kertoo Hesarin uusin kannatuskysely. Demareiden kannatus on miltei tuplat verrattuna persuihinl. Suomen kansa ei selväst14910966Mikä tämä henkilö mahtaa touhuta Parkanossa
Kamalaa https://www.ylasatakunta.fi/teksti/pirkanmaan-karajaoikeus-vangitsi-koiran-tappamisesta-epaillyn-6.68.127794.b58643873Ikävä sinua mies
Vuosia kuluu, mutta tunteet ei ole hävinnyt. Tasoittuneet toki, kun ei olla nähty. Järki palannut päähän kuitenkin. Se i393823Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen
No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat1873602PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas
https://www.verkkouutiset.fi/a/hs-gallup-sdpn-suosio-laskee-ps-nousussa/#0a7d2507 Ylivoimainen viime kuukausien nousija1003451Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia
tai muuta kehitysmaalaista. Mites tässä näin kävi? Tiedän hyvin, että esim. somaleita lentää ulos mm. Hekan asunnoista,973277Hienoa! Eduskunta luopui käteisen käytöstä
Nyt tuo sama muutos pitää saada myös muuhun yhteiskuntaan. Käteistähän ei tarvitse tänä päivänä enää kuin rikolliset.691914Maajussi-Ville herättää kysymyksiä - Etsiikö oikeasti rakkautta vai mainostaako oliiviöljyä?
Mitä mieltä olet: etsiikö Ville rakkautta vai mainostaako oliiviöljyään? Maajussille morsian -ohjelmassa yksi maajusseis151247Kovia syytöksiä Stefan Thermaninsta.
Jättänyt taas maksamatta kohuliikemies, hupparit ja muita ostamiaan tavaroita. On soiteltu liikkeestä ja Stefan iskenyt155928Totuuspuolueen johtaja Jaana "prinsessa Leia" Kavonius on vangittu
Kavonius määrättiin jo keväällä 2024 poissaolevana vangittavaksi todennäköisin syin epäiltynä 13 vainoamisesta ja 24 kun264889