Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


loppa ur text ur en textfil

Postades av 2002-04-03 15:15:12 - Emil Axelsson, i forum asp - allmänt, Tråden har 5 Kommentarer och lästs av 501 personer

Hej. Jag håller på och göra en länksamling. Jag vill att det ska visas 20 länkar per sida och länkarna hämtas ur en textfil.

--------------------------------------------------------------------
'vilken sida som ska visas.
'om "sida är 1" visas dom första 20 länkarna
'om "sida = 2" visas länkarna 20 till 40
sida = request.querystring("sida")
fil = request.querystring("fil")




path = Server.MapPath("\pg")
fil = path & "\" & fil
Set MittTxtObj = Server.CreateObject("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile(fil)

'LOPPEN BÖRJAR HÄR

url = minfil.readline 'Adressen till sidan.
kategori = minfil.readline 'Kategorin sidan hör till.
datum = minfil.readline 'Datumet länken lades till.
rubrik = minfil.readline 'Adressens rubrik
beskrivning = minfil.readline 'Beskrivning av vad som finns på sidan.


'koden som skriver in datan i html tabeller finns här


'LOPPAR TILLBAKA
-----------------------------------------------------------

Vad jag vill veta är alltså hur jag ska göra för att kunna läsa
in 20 länkar per sida ur en textfil. 1 länk är alltså 5 rader i textfilen.
Och hur jag ska göra för att man ska kunna läsa länkar 20-40.

Hoppas nån förstod vad jag menade för som vanligt gör jag det knappt själv.

Jag har provat att loppa med "while not minfil.atEndOfStream"
men det funkar inget bra når man ska avsluta loppningen eftersom att textfilen tar slut efter en stund.


Svara

Kanske så här

Postades av 2002-04-03 17:09:31 - Patrik Andersson

Känns väl inte som om detta är något för nybörjarforumet men ändå.
Knåpade ihop detta och du får själv lägga till felhanteringen.

<code>
<%
Function getLinks(startLine,endLine)
Dim fil
Dim fso
Dim f
Dim ts
Dim intLineNum
Dim whatLine

'Vi skickar in startraden och slutraden. Måste vara
'1,5,10,15,20 etc, etc.
'Varje länk tar 5 rader i anspråk

'Rad Innehåll
'1 Adressen till sidan.
'2 Kategorin sidan hör till.
'3 Datumet länken lades till.
'4 Adressens rubrik
'5 Beskrivning av vad som finns på sidan.

'Min exempelfil ser ut så här (utan enkelfnuttar så klart):
'http://www.pellesoft.se
'Programmering
'2002-04-04
'Pellesoft
'Site packad med information
'http://www.aftonbladet.se
'Dagstidning
'2002-04-04
'Aftonbladet
'Innehåller nyheter med mera

'Sökvägen till filen som innehåller länkarna.
fil = Server.MapPath("links.txt")

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(fil)
Set ts = f.OpenAsTextStream()
whatLine= 1
'loopa igenom hela filen
do while not ts.AtEndOfStream
'räkna raderna i filen
intLineNum = ts.line
If whatLine > 5 then
'Vi har passerat rad 5 vilket innebär att det är en ny länk så
'nollställ räknaren.
whatLine = 1
End if
If intLineNum >= startLine AND intLineNum <= endLine Then
'Varje länk innehåller 5 rader. När vi skall skriva ut det hela så
'måste vi hålla koll på vilken rad i länken vi är på.
'Aktuell rad finns i variabeln whatLine.
'Här nere kollar vi vilken rad vi är på och skriver ut innehållet
'tillsammans med en förklarande text framför.

Select case whatLine
case 1
Response.Write "<b>Url:</b> " & ts.readLine() & "<br>"
case 2
Response.Write "<b>Kategori:</b> " & ts.ReadLine() & "<br>"
case 3
Response.Write "<b>Datum:</b> " & ts.ReadLine() & "<br>"
case 4
Response.Write "<b>Rubrik:</b> " & ts.ReadLine() & "<br>"
case 5
Response.Write "<b>Beskrivning:</b> " & ts.ReadLine() & "<br><br>"
End Select
whatLine = whatLine + 1
else
'vi har lämnat spannet vi vill läsa ifrån så skippa resten av raderan
ts.skipLine()
end if
loop

ts.close
Set fso = Nothing
End function
%>
<%
'Kalla på funktionen där du vill att den skall skriva ut länkarna. Skicka in startraden och slutraden.
call getLinks(1,10)
%>
</code>

//Putte



Svara

Sv: Kanske så här

Postades av 2002-04-03 22:20:35 - Emil Axelsson

Oj,,, Väldigt STORT tack Putte!
Jättesnällt! =)


Svara

Sv: Kanske så här

Postades av 2002-04-05 10:50:00 - Emil Axelsson

Nu har jag ett nytt problem....

När jag använt http://localhost/pg/visa.asp?visa=lank1&start=10




' Jag vet att denna funkar för jag kan skriva ut start med response.write.
start = request.querystring("start")




'detta borde väl funka? men det för det inte....
call getLinks(start, start+20)


Svara

Sv: Kanske så här

Postades av 2002-04-05 11:08:14 - Patrik Andersson

Test detta:

call getLinks(start, Cint(start+20))


//Putte


Svara

Sv: Kanske så här

Postades av 2002-04-07 12:06:43 - Emil Axelsson

oki. ska prova.
tack igen. =)


Svara

Nyligen

  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players
  • 19:38 Rekommendera något intressant

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 902
27 965
271 779
2 246
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies