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


Open/print/input

Postades av 2002-11-19 01:16:21 - Raderat konto, i forum visual basic - allmänt, Tråden har 4 Kommentarer och lästs av 430 personer

Nån som vet hur (eller om det går)
man kan läsa eller starta från en viss rad i en fil
och skriva till en viss rad, utan att behöve loopa igenom hela filen?

tex jag vill skriva till rad 4576, då vill jag inte sitta och "input line":a
alla innan osv..


Svara

Sv: Open/print/input

Postades av 2002-11-19 06:55:29 - Sven Åke Persson

Hej
Du kan ha en Dummy TextBox i ditt prog Visible = False.
I den laddar du textfilen vid lämplig tidpunkt,kanske redan vid start.
Sedan:
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Any) As Long
'Obs lParam skall vara ByVal
' Edit Control Messages
Const WM_USER = 1024
Const EM_GETLINECOUNT = &HBA
Const EM_GETLINE = &HC4

Dim Cnt As Long, buffer As String
Dim RadNr As Long 'Obs översta raden har nr 0
RadNr = 4576 'Vilken rad skall fångas
Cnt = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
Form1.Caption = "Text1 innehåller " & Cnt & " rader"
buffer = String(100, 32) 'lägger upp en buffer på 100 space
Cnt = SendMessage(Text1.hwnd, EM_GETLINE, RadNr, buffer)
On Error Resume Next
buffer = Left$(buffer, Cnt - 2) '- 2 tar bort vbCrLf
'buffer innehåller din begärda rad

/Sven


Svara

Sv: Open/print/input

Postades av 2002-11-19 09:10:06 - Andreas Hillqvist

Om dina rader har fast bred så kan du göra detta. MEn annars måste du läsa filen och söka efter antalet radbrytningar fram till den raden du skall skriva på. Sedan måste du flytta upp/ned informatione som kommer efter om den nya texten är större/mindre.


Svara

Sv: Open/print/input

Postades av 2002-11-19 09:58:05 - Fredrik Salomonsson

Hej.

En grej som jag använde mig av var att ladda in hela filen i en variabel.
Köra split
uppdatera arrayen.
skriva tillbaka hela filen.

Dim strFile As String
Dim varArr As Variant

strFile = objS.ReadAll
varArr = Split(strFile, vbCrLf)
varArr(23) = "Denna rad uppdateras"

Detta ger kanske inte den prestandan du önskar men fungerar...

//fredda


Svara

Sv: Open/print/input

Postades av 2002-11-19 10:37:19 - Raderat konto

det som problemet är, är ju att jag ska göra ett program
som går igenom en fil, som kan vara 1byte stor, eller
en fil som är 1 gig stor, är filen bara några hundra kb, så gör det inget att läsa in allt
pch alternera det som den ska där den ska, men
om filen är 1 gig så är det omöjligt även för den bästa datorn att
hantera DEN mängden i minnet

så jag behöver kunna skriva vid en specifik tecken-placering
eller rad, och det är där mitt problem kommer :\


Svara

Nyligen

  • 09:09 Vill du köpa medicinska tester?
  • 12:47 Vem beviljar assistansen – kommune
  • 14:17 Någon med erfarenhet av hemstädnin
  • 14:14 Bör man använda sig av en båtförme
  • 14:12 Finns det någon intressant hundblo
  • 14:25 Tips på verktyg för att skapa QR-k
  • 14:23 Tips på verktyg för att skapa QR-k
  • 20:52 Fungerer innskuddsbonuser egentlig

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 569 602
27 953
271 705
5 899
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