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


Läsa flera rader

Postades av 2002-10-11 20:38:57 - Sören Andrén, i forum visual basic - allmänt, Tråden har 9 Kommentarer och lästs av 496 personer

Detta ex läser ju bara en rad
Om jag vill kunna läsa flera rader från en fil
Hur gör jag då?

Open "TT.txt" For Input As #1
Line Input #1, Text
Text2.Text = Text2.Text + Text
Close



Sören


Svara

Sv: Läsa flera rader

Postades av 2002-10-11 20:59:42 - Andreas Hillqvist

KAnske så här du menar:
<code>
Dim FileNo as long
Dim strLine as string
FileNo = FreeFile()
Open "TT.txt" For Input As #FileNo
Do Until EOF(FileNo)
Line Input #FileNo, strLine
Text2.Text = Text2.Text + strLine
Loop
Close FileNo
</code>


Svara

Sv: Läsa flera rader

Postades av 2002-10-11 21:05:52 - Sören Andrén

Ja nästan
Detta ger ju en lång rad
Men om man vill ha dom radvis, precis som när man läser dom


Svara

Sv: Läsa flera rader

Postades av 2002-10-11 22:04:51 - Andreas Hillqvist

Då behöver du inte läsa radvis. Läs in hela filen istället.
<code>
Dim FileNo As Long
Dim FileName As String
Dim strText as string
FileNo = FreeFile()
FileName = "TT.txt"

Open FileName For Binary Access Read As #FileNo
strText = Space(LOF(FileNo))
Get #FileNo, , strText
Close FileNo

Text2.Text = strText
</code>


Svara

Sv: Läsa flera rader

Postades av 2002-10-11 22:13:02 - Björn Johansson

kan man inte göra så här också??

Dim FileNo as long
Dim strLine as string
FileNo = FreeFile()
Open "TT.txt" For Input As #FileNo
Do Until EOF(FileNo)
Line Input #FileNo, strLine
Text2.Text = Text2.Text + strLine & vbCrlf
Loop
Close FileNo

undrar BJ utan att testa


Svara

Sv: Läsa flera rader

Postades av 2002-10-12 01:58:59 - Andreas Hillqvist

Det kan man göra. Men det är mycket ineffektivt.
* Att läsa från hårdisken är en långsam operation.
* Line input innebär en sökning till nästa radbrytning.
* Sträng konkratenering kräver att du dimensionerar om variabeln för varje tilldelning. Vilket stjäl tid.
* Att anrop egenskapen på textbox långsamare än att använda en variabel.

Däremot strular binary om filen är i unicodeformat.


Svara

Sv: Läsa flera rader

Postades av 2002-10-12 07:23:20 - Sören Andrén

Tackar för detta.


Svara

Sv: Läsa flera rader

Postades av 2002-10-12 19:12:44 - Sven Åke Persson

Hej
Mitt favoritsätt har blivit

Dim FileNo As Long
Dim tmpStr As String
FileNo = FreeFile
Open "TT.txt" For Input As #FileNo
'Läs hela texten i en chunk
tmpStr = Input$(LOF(FileNo),FileNo)
Close FileNo
Text1.Text = tmpStr 'Text1 MultiLine = True

Sven


Svara

Sv: Läsa flera rader

Postades av 2002-10-12 20:15:22 - Andreas Hillqvist

Har du något förslag för unicode filer?


Svara

Sv: Läsa flera rader

Postades av 2002-10-12 23:29:41 - Sven Åke Persson

hej
Menar du att inte mitt exempel funkar på Unicode ?

DS


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 914
27 965
271 779
4 147
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