Тю! в чём проблема?

Open "C:\111.txt" for input as #1

Open "C:\222.txt" for input as #2

Open "C:\333.txt" for output as #3

do while not eof (1)

Line input #1, q$

print #3,q$

loop

close #1

do while not eof (2)

Line input #2, q$

print #3,q$

loop

close

примерно так, писал по памяти, не в VB, а сразу тут. Если что извиняй, неполучится, стучись в аську там и разотрём

Ответить

Не дюжа клевый способ. Это ж сколько считываний/записей то будет!

Уж лучше сразу считывать файл (если он не особо большой), и второй тоже, а потом за один проход писать. Если большой - в два, три, четыре... захода, но уж никак не построчно.

Примерно так:

Private Sub Command1_Click()

Dim hFile As Byte

Dim sFile1 As String

Dim sFile2 As String

hFile = FreeFile

Open "c:\file1.txt" For Input As hFile

sFile1 = Input(LOF(hFile), hFile)

Close hFile

hFile = FreeFile

Open "c:\file2.txt" For Input As hFile

sFile2 = Input(LOF(hFile), hFile)

Close hFile

hFile = FreeFile

Open "c:\file3.txt" For Output As hFile

Print #hFile, sFile1 & sFile2

Close hFile

End Sub

Ответить

Ответить

Собрать: copy 1.txt+2.txt 3.txt

Ответить

А как расцеплять? Это в принципе наверно невозможно обычными ср-вами. Разделатель типа ### ставить опасно, тк файлы могут и его содержать...Хотя авторы WinRAR как-то справились...

Ответить

Для "расцепления": Чем длиннее сочетание символов нем менее вероятно, что в файле появится именно такое сочетание, а вообще лучше в начале выделить, скажем, байт 128 в качестве заголовка и поместить данные туда о началах и концах файлов...

Ответить

Ответить

Хм... Не слишком удачно, файл то пострадает. То есть, объединяешь два текстовых файла - в итоге должен получиться текстовый файл, а там - какая-то лабуда в начале.

Толковее будет добавить в конец, отделив, скажем, нулевым символом. Тот же TextBox не выводит целиком Null-terminated string, то есть при загрузке такого файла в TextBox он будет выглядеть нормально, без служебной дряни.

ИМХО, 128 байт будет многовато там, где хватит и 4-х.

Ответить

Ответить

Видать, с дельфей не особо работал, я там натыкался часто. Ну, почитай MSDN или Help-файлы.

.

Null-terminated Strings

Always cast zero to TCHAR when using null-terminated strings. The code 0x0000 is the Unicode string terminator for null-terminated strings. A single null byte is not sufficient for this code, because many Unicode characters contain null bytes as either the high or the low byte. An example is the letter A, for which the character code is 0x0041.

.

К примеру:

Private Sub Form_Load()

Dim tmpString As String

tmpString = "Null-terminated " & Chr$(0) & "more string's characters"

Text1.Text = tmpString & " bla-bla-bla"

End Sub

Ответить

Так, к сведению - они используются в протоколах чатов, в частности, qChat и Vypress Chat, разделяя в UDP пакетах поля данных.

Ответить

Угу... вот только указанный способ работает только для текстовых файлов... ни больше ни меньше... Ну а если этот код использовать, то заместо chr$(0) лучше бы вставить vbNullChar... Зря чтоль константа предусмотрена, не дадим пропасть добру )

Ответить

Ну дык в вопросе так и сказано - "как собрать 2 файла(текстовых) в один".

Естественно, если файл бинарный - нет смысла считывать его построчно Тут уж рулит массив.

Ну а константы - дело привычки. Я еще со спектрума привык работать непосредственно с кодами.

Ответить