надо переписать файл.

[dorido]

надо переписать файл. те открыть одиy файл (open "file.jpg" for ...)
и переписать его в другой(тоже jpg)
как это сделать

[GSerg]

filecopy "from", "to"

[GM]

Если хочеш переместить файл, то

Код: Выделить всё

Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

movefile("from","to")


[dorido]

да нет, мне надо не скопировать или переместить, а открыть один для чтения, другой для вывода и переписать(построково)

[GM]

Вот так:

Код: Выделить всё

dim s as string
open "from" for input as #1
open "to" for output as #2
do while eof(1) =false
line input #1,s
print #2,s
loop
close #1
close #2


[GSerg]

Во-первых, в jpg "строк" нет. Во-вторых, почему нельзя копировать?

[GM]

Я тоже удивился, ну раз чел хочет по строкам, то по строкам. ИМХО он хочет отобразить индикатор выполнения, или что-то похожое т.е. контролировать процесс копирования.

[dorido]

если открывать ...for input и ... for output,
а потом по строкам читать, то новый файл не распознаётся как картинка.

[dorido]

а вообще суть в том, чтобы сначало можно было переписать несколько файлов в один, а затем наоборот из одного - несколько

[dorido]

УЖЕ ИСКАЛЛ !!! КАК-ТО НЕ НАШЁЛ!!!!!!!

[Faust]

если открывать ...for input и ... for output,
а потом по строкам читать, то новый файл не распознаётся как картинка.

А чего ты, собственно, ожидал? Операторы Print и Write добавляют левые пробелы, переводы строки и кавычки.

а вообще суть в том, чтобы сначало можно было переписать несколько файлов в один, а затем наоборот из одного - несколько

Ну и зачем же тогда работать "построково"? Открываешь файлы For Binary, читаешь из материнского файла в байтовый массив, ReDim-ленный по его (файла) длине, пишешь этот массив в дочерний файл.

[dorido]

2Faust
нельзя ли примерчик, please

[GSerg]

Насколько я понимаю, человек собирается сливать jpeg в логическом смысле, то есть сливать разные картинки. И пытается делать это слиянием файлов. Что, естественно, не получится.

[kirrun]

А я думаю, что ему надо слить два файла в один чтоб незаметно протащить...

[Faust]

Файлы с именами smFile0, smFile1, ..., smFile99 собираються в файл BigFile

Код: Выделить всё

Dim b() As Byte, i as byte
Open "c:\BigFile" For Binary Access Write As #1
For i=0 to 99
Open "c:\SmFile" & CStr(i) For Binary Access Read As #2
ReDim b(0 to LOF(2)-1)
Get #2, ,b
Put #1, ,b
Close #2
Next i
Close #1

[GSerg]

Теперь как ты узнаешь, где какой массив был?

[alibek]

В отдельный файл пишутся размеры файлов Либо по сигнатурам JPEG.

[GSerg]

По сигнатурам JPEG? А если такой же хитрый файл, как архивокартинка?