PDA

Показать полную графическую версию : [решено] "Слить" в один файл все текстовые файлы из папки


sashadeg
05-03-2010, 16:00
Возможно ли это? просто у меня возникла проблема работе с группой файлов... Допустим имеется 100 текстовиков с расширением .vkp, нужно слить всё в один файл

kaster
05-03-2010, 16:08
sashadeg, что значит слить? объединить содержимое каждого файла в один большой? если да, то очень просто.

$sPath = 'Folder with files'
$search = FileFindFirstFile($sPath & '\*.vkp')

$sContent = ''
While 1
$sFile = FileFindNextFile($search)
If @error Then ExitLoop
$sContent &= FileRead($sPath & '\' & $sFile) & @CRLF
WEnd

FileWrite($sPath & '\' & 'summary.vkp', $sContent)

sashadeg
05-03-2010, 16:25
FileFindFirstFile($sPath & '\*.vkp') »
WoW Вот то что мне нужно было =) Спасибо!!!




© OSzone.net 2001-2012