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
410
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
Ja taas ammuttu kokkolassa
Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.495161- 783556
Helena Koivu on äiti
Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.3212148Milli-helenalla ongelmia
Suomen virkavallan kanssa. Eipä ole ihme kun on etsintäkuullutettu jenkkilässäkin. Vähiin käy oleskelupaikat virottarell2651875Kuinka kauan
Olet ollut kaivattuusi ihastunut/rakastunut? Tajusitko tunteesi heti, vai syventyivätkö ne hitaasti?1151719Kun näen sinut
tulen iloiseksi. Tuskin uskallan katsoa sinua, herätät minussa niin paljon tunteita. En tunne sinua hyvin, mutta jotain531316Ja taas kerran hallinto-oikeus että pieleen meni
Hallinto-oikeus kumosi kunnanhallituksen päätöksen vuokratalojen pääomituksesta. https://sysmad10.oncloudos.com/cgi/DREQ951270- 701222
Löydänköhän koskaan
Sunlaista herkkää tunteellista joka jumaloi mua. Tuskin. Siksi harmittaa että asiat meni näin 🥲1331187Purra saksii taas. Hän on mielipuuhassaan.
Nyt hän leikkaa hyvinvointialueiltamme kymmeniä miljoonia. Sotea romutetaan tylysti. Terveydenhoitoamme kurjistetaan. ht2871161