Private Sub Command1_Click() Open Fil For Input As 1 Line Input #1, buffer Text1.Text = buffer Do Line Input #1, buffer Text1.Text = Text1.Text + vbCrLf + buffer Loop Until EOF(1) End Sub
Sig til, hvis du skal have koden forklaret. \'Fil\' indeholder naturligvis navnet på filen. Tilføjelse til koden: Husk \'Close\' efter loopet for at lukke filen igen.
Hvor går denne her så galt??? CD er en CommenDialog Open CD.FileName For Append As #i Do Until EOF(i) Line Input #i, buffer txtind.Text = txtind.Text & buffer Loop
... Hvis du åbner den som Input kan du kun læse fra den, hvis Random, så kan du både læse og skrive. Hvis du åbner som Binary skal du læse et antal bytes af gangen med Get og skrive med Put. (Besværligt til dit formål)
Du skal åbne dine filer som Random for at kunne gøre det (har jeg lige fundet ud af). Du skal så åbne dem sådan her, hvor RecLen er længden af en record:
Open Fil For Random As 1 Len = RecLen
Du kan så læse en record af gangen med Get sådan her:
Get #1,RecNo,Var
RecNo er nummeret på den record du vil læse, og Var er den variabel du vil føre det over i.
Synes godt om
Ny brugerNybegynder
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.