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


Filesystemobject?

Postades av 2003-11-17 08:34:24 - Maria Levén, i forum asp - allmänt, Tråden har 2 Kommentarer och lästs av 345 personer

Hej!
Är det någon som har ett exempel eller kan hjälpa mig att visa hur jag går tillväga att läsa ur en textfil.
Jag vet hur jag gör när jag hämtar filen och läser hela filen med filesystemobjekt. Men jag vet inte hur jag gör när jag ska läsa och bara hämta ut vissa värden.
Exempelvis vill jag hämta ut värden som är innanför <test>Lite information</test>. Alltså bara vissa värden inte alla.

Tacksam om någon har möjlighet att hjälpa mig

Maria


Svara

Sv: Filesystemobject?

Postades av 2003-11-17 08:55:33 - Pelle Johansson

Du för börja använda kommandon som INSTR. Alltså ta reda på var förekomsten av <test> finns, därefter </test>. Men Instr kan du säga:

1. Leta efter första förekomsten av <test>, x = instr(buffer,"<test>")
2. Leta efter slutet, y = instr(x, buffer, "</test>")
3. Nu har du x och y - och kan med text = mid(buffer,x,y-x) få ut texten (inte exakt dock - behövs små modifikationer där).

x och y är alltså start och slutposition. sen måste du ta hänsyn till att x och y skall ökas eller minskas beroende på längden av din tagg - dvs <test> som är 6 tkn och </test> som är 7 tkn.

Åsså fortsätter man med denna principen tills man gått igenom hela strömmen med datat som finns i buffer. Använd VB för att bygga denna snurra så kan du debugga och se hur det verkligen fungerar, för det blir lite lättare att arbeta då.


Svara

Sv: Filesystemobject?

Postades av 2003-11-17 09:33:07 - Maria Levén

Jag har gjort så här, men det fungerar inte som jag vill. Den hämtar nämligen alla rader, även de som inte är <SupplierPartAuxiliaryID> i.
Så här ser koden ut:

Do until infile.AtEndOfStream
puffen = infile.readline
do until a = 10
lpos = instr(puffen,"<SupplierPartAuxiliaryID>")
if lpos = 0 then
exit do
else
rpos = instr(puffen,"</SupplierPartAuxiliaryID>")
end if
a = a + 1
loop
response.write(puffen&"<br>")
loop


/Maria


Svara

Nyligen

  • 08:28 Butiksskyltar: Hur upplever utbude
  • 22:31 Slappna av
  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper

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 792
27 960
271 761
456
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