Hej

Jag ubdrar om någon har ett litet tips på hur man kopierar ihop två filer till en fil..

dvs
fil1.txt

Rad 1 fil 2
Rad 2 fil 2

fil2.txt

Rad 1 fil 1
Rad 2 fil 1

den nya filen

ny.txt

Rad 1 fil 1
Rad 2 fil 1
Rad 1 fil 2
Rad 2 fil 2

Hej
Ett förslag till lösning, det finns säkert andra sätt.

Option Explicit
Private Sub Command1_Click()
Dim fnum1 As Long, fnum2 As Long, fnum3 As Long
Dim i As Long, tmpStr As String
fnum1 = FreeFile
Open "C:\Text1.txt" For Input As #fnum1
fnum2 = FreeFile
Open "C:\Text2.txt" For Input As #fnum2
fnum3 = FreeFile
Open "C:\Ny.txt" For Output As #fnum3
On Error Resume Next
Do Until EOF(fnum1)
For i = 1 To 2
Line Input #fnum1, tmpStr
Print #fnum3, tmpStr
Next 'i
For i = 1 To 2
Line Input #fnum2, tmpStr
Print #fnum3, tmpStr
Next 'i
Loop
Close #fnum1
Close #fnum2
Close #fnum3
End Sub

mvh
Sven

Varför läser du inte in hela filer som du brukar. Har jag lärt mig från dig är bäst. <br>
<br>
Skrivit en generell funktion:
<code>
Private Sub Command1_Click()
ConcatenatFiles "c:\ny.txt", "c:\fil1.txt", "c:\fil2.txt"
End Sub

Public Sub ConcatenatFiles(Destination As String, ParamArray Files() As Variant)
Dim DestNo As Long
Dim SourceNo As Long
Dim Data As String
Dim File As Variant
DestNo = FreeFile()
Open Destination For Binary Access Write Lock Write As #DestNo

SourceNo = FreeFile()
For Each File In Files
Open File For Binary Access Read Shared As #SourceNo
Data = Space$(LOF(SourceNo))
Get #SourceNo, , Data
Put #DestNo, , Data
Close #SourceNo
Next

Close #DestNo
End Sub


</code>

Det finns redan ett program för detta som heter copy:

copy fil1.txt+fil2.txt ny.txt

Hej
Njaaaaaa gode Lokförare nu kom du på fel spår.

Han vill blanda filerna 2 rad text1 2 rad text2.

Ha det håll tiderna kolla brandsläckaren

Sven

Eftersom frågan ligger i Visual Basic forumet antog jag att det var vb-kod frågaren var ute efter.

Copy är väl inget program utan ett komando i dos kommandotolk?
Fins ingen Copy.exe eller Copy.com. ;O)

Hej
Som jag skrev."Ett förslag till lösning, det finns säkert andra sätt".

>Varför läser du inte in hela filer som du brukar

Njaaaaaaa tycker att det ligger en pedagogisk knorr i att ta detta upplägg.
Problemmet i sig sjäjv behöver inte optimeras,tycker att denna
steg för steg lösningen fyller det behov som problemmet kräver.

DS