Hej

Ska skriva ett program som läser en fil och skriver den inlästa datan till en anna fil på samma format.Programmet ska använda sig av common dialog box. Prog. ska ha två knappar. När man trycker på den ena så ska man få välja en fil att öppna. När man trycker på den andra knappen ska man få välja en fil att spara textboxens innehåll i, och detta ska skrivas till filen.

Har klarat av att skriva koden till Read filen knappen men vet inte riktigt hur jag ska lösa koden till Write file knappen. Så här ser koden till Read knappen ut:

Private Sub Command1_Click()
On Error GoTo fel
Dim fileno As Integer
Dim filename As String
Dim filedata, temp As String

CommonDialog1.ShowOpen

fileno = FreeFile()
filename = CommonDialog1.filename
Open filename For Input As #fileno
While Not EOF(fileno)
Line Input #fileno, temp
filedata = filedata & vbCrLf & temp
Wend

Text1.Text = filedata
Close #fileno
fel:
End Sub


Koden till write knappen ska väl inte skilja sig så mycket från denna kod. Men jag vet inte hur jag ska lösa detta. Finns det någon vänlig själ som kan hjälpa mig?

AHA

Tjenare!

Här kommer ett försök till lösning:

Private Sub prntFile_Click()

On Error GoTo fel
Dim fileno As Integer
Dim filename As String
Dim filedata, temp As String

CommonDialog1.ShowOpen

fileno = FreeFile()
filename = CommonDialog1.filename
Open txtFilnamn For Output As #fileno

filedata = Text1.Text

Print #fileno, filedata

Close #fileno
fel:
End Sub

Tack!

Ska testa detta.

AHA