Помогите пожалйста

[lazdenni]

Имеется несколько текстовых файлов( 5 штук) нужно соединить эти файлы в один, и у последних четырёх при присоединеии к 1-му удалить первую строчку

[FaKk2]

Читаешь все пять файлов в переменную.
При чтении 2-5 не пишешь первую строку в переменную.
Все сохраняешь в файл.......

[lazdenni]

А как это зделать то?

[FaKk2]

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

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

Private Function Merge_Files(Files() as string) as String
dim i as integer
dim output as String
dim iline as string

open files(0) for input as #1
do while not eof(1)
  line input #1, iline
  output=output & iline & vbCrLf
loop
close files(0)

for i=1 to 5
  open files(i) for input as #1
  line input #1, iline
  do while not eof(1)
    line input #1, iline
    output=output & iline & vbCrLf
  loop
  close files(0)
next i

Merge_Files=output
End Function


Я мог перепутать параметры у Line Input

[FaKk2]

Вызываешь так:

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

files(0)="c:\text1.txt"
....
files(4)="c:\text2.txt"
out=Merge_Files(Files)
open files(0) for output as #1 'если надо первый файл переписать.
print #1, out
close #1

[lazdenni]

на
вот это
files(0) = "C:\utu100\bbbb\1.txt"
files(1) = "C:\utu100\bbbb\2.txt"
files(2) = "C:\utu100\bbbb\3.txt"
files(3) = "C:\utu100\bbbb\4.txt"
files(4) = "C:\utu100\bbbb\5.txt"
out = Merge_Files(files)
Open files(0) For Output As #1 'åñëè íàäî ïåðâûé ôàéë ïåðåïèñàòü.
Print #1, out
Close #1

vb пишет Sub or Function not Define

[Rainbow]

files - это массив строк
Поэтому надо его определить, прежде чем пользоваться

dim files(4) as String

[FaKk2]

files - это массив строк
Поэтому надо его определить, прежде чем пользоваться

dim files(4) as String

Это во первых.
А во вторых вызов функции и вообще весь код надо куда нить впихнуть. Например в код нажатия кнопки.

[lazdenni]

Open files(0) For Input As #1
Do While Not EOF(1)
Line Input #1, iline
output = output & iline & vbCrLf
Loop
Close files(0) <----- ВОТ НА ЭТО ДЕЛО РУГАЕТСЯ УЖе ВСЁ ПЕРЕПРОБЫВАЛ .А пишет Type mismach

[areh]

Ты пытаешься закрыть файл (командой Close) с указанием имя файла, а надо указывать дескриптор, конкретно в приведенном тобой примере надо писать Close #1. А ругается он "Type mismach", из-за не совпадения типов, т.е. ты вместо Integer подставляешь String.

Удачи!

[lazdenni]

Спасибо всё получилось
А можно ли зделать так что бы файл читался не по строчкам а целиком и у последующих удалялась только первая строчка?

[FaKk2]

Сорри ошибся....
Файл целиком....
ищи на старом форуме:
[url]old.vbstreets.ru[/url]