[vb6] inhoud file1 regel voor regel naar file2

[cappie]

Hoe kan ik in vb6 regel per regel een bestandje overzetten naar een andere file?

Dit is wat ik nu heb, maar dat corrupt m'n data:

code:

On Error Resume Next
Open CUS_source For Input As #1
Open CUS_target For Append Lock Write As #2

If Err.Number <= 0 Or Err.Number = 55 Then '55 is file already open...
  Do While Not EOF(1)
    Input #1, fileline
    Print #2, fileline
  Loop
  Close #1
  Close #2
 Else
  Err.Clear
End If

Dit verknalt m'n data dus.. eigenlijk heb ik liever iets wat een binary filecopy doet (ik moet de bestand (de newline commandos) in UNIX format houden (chr(13), chr(10)), en het is ERG belangrijk dat m'n data intakt blijft..

Kan het uberhaupt wel met Visual Basic??

[cappie]

oplossing al gevonden.. erg ranzig, maar 't werkt:

code:

Open CUS_source For Input As #1
Do While Not EOF(1)
    Line Input #1, content
    For X = 1 To Len(content)
      content2 = content2 & Chr(Asc(Mid(content, X, 1)))
    Next X
    content2 = content2 & Chr(13) & Chr(10)
Loop
Close #1
Open CUS_target For Append Lock Write As #2
content2 = Left(content2, Len(content2) - 2)
Print #2, content2
Close #2

[johnwoo]

Tuurlijk kan dat in VB... Ik zou een string variabele gebruiken om de file per block binair te copyen. Je kunt dan per block fftjes de <cr><lf>'s (Windows) omzetten in <cr> (UNIX).

ff snel in pseudocode:

code:

const blocksize = 1024 ' 1K blockgrootte
dim block as string * blocksize, blockje as string, r as integer

open file1
open file2

for r = 1 to len(file1) \ blocksize
  ' Blok voor blok copyen
  get file1, block
  process block
  put file2, block
next r
if not eof(1) then
  ' Nog een klein reststukje kleiner dan 1 block
  get file1, blockje
  process blockje
  put file2, blockje
end if

close file1
close file2

[Verwijderd]

en:

code:

On Error Resume Next
Open CUS_source For Input As #1
Open CUS_target For Append Lock Write As #2
If Err.Number <= 0 Or Err.Number = 55 Then '55 is file already open...
  Do While Not EOF(1)
    Line Input #1, fileline
    Print #2, fileline
  Loop
  Close #1
  Close #2
 Else
  Err.Clear
End If

[Gerco]

Zou het niet handig zijn om de file for "Binary" te openen? en dan met "Get" en "Put" via Byte arrays de boel over te zetten? Dan heb je zeker weten de goede data.