Søg
Avatar billede sjh Nybegynder
22. november 2000 - 23:53 Der er 4 kommentarer og
1 løsning

Open Mid$(Space(LOF(1)), s$, l$)

Jeg har et problem med store FILER
jeg skal åbne en fil på 100MB og pille 7,13MB ud af den, men det skal være 1,61MB inde midt i filen. hvordan kan jeg gøre det så jeg ikke skal vente i \"100år\" på det.?
   

Private Sub Command1_Click()

    s$ = 1696777 \' Start 1,61MB inde i filen
    l$ = 7479944 \' 7,13MB Lengte fra start

    Open \"FileInd.txt\" For Binary As #1
    filedata$ = Mid$(Space(LOF(1)), s$, l$)
    Get #1, , filedata$
    Close #1

    Open \"FileUd.txt\" For Binary As #2
    Put #2, , filedata$
    Close #2

End Sub
Avatar billede tdaugaard Nybegynder
22. november 2000 - 23:56 #1
vente i hundrede år ..

brug SEEK

Private Sub Command1_Click()
    Open \"FileInd.txt\" For Binary As #1

    lngLen = 7479944 \' 7,13MB Lengte fra start
    filedata$ = Space(lngLen)
    Get #1, 1696777, filedata$
    Close #1

    Open \"FileUd.txt\" For Binary As #2
    Put #2, , filedata$
    Close #2

End Sub
Avatar billede tdaugaard Nybegynder
22. november 2000 - 23:58 #2
glemte lige et & på lngLen så det er en long.

Private Sub Command1_Click()
    Open \"FileInd.txt\" For Binary As #1

    lngLen& = 7479944 \' 7,13MB Lengte fra start
    filedata$ = Space(lngLen&)
\' måske skal du bruge ...1696778 istedet ... prøv dig frem. Den starter på byte position 1696777 nu.
    Get #1, 1696777, filedata$
    Close #1

    Open \"FileUd.txt\" For Binary As #2
    Put #2, , filedata$
    Close #2

End Sub
Avatar billede tdaugaard Nybegynder
23. november 2000 - 00:02 #3
På min \"måde\" optimeret:

DefLng L
DefStr S

Private Sub Command1_Click()
    Open \"FileInd.txt\" For Binary As #1

      lngLen = 7479944 \' 7,13MB Lengte fra start
      strData = Space(lngLen)

      \' måske skal du bruge ...1696778 istedet ... prøv dig frem. Den starter på byte position 1696777 nu.
      Get #1, 1696777, strData
    Close #1

    Open \"FileUd.txt\" For Binary As #2
      \' Put @ byte pos. 1.
      Put #2, 1, strData
    Close #2
End Sub
Avatar billede sjh Nybegynder
23. november 2000 - 00:53 #4
Ja se det var noget jeg kunne bruge ;)

fedt nok tdaugaard.
Avatar billede tdaugaard Nybegynder
23. november 2000 - 00:58 #5
*s* Det var så lidt :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 11:47 VB script Af Jenshentze i Word
I dag 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
04/0913:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
White papers
Flere white papers »