sproxy
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
zpmaloy
описание _FTPPutFile()
как понимаю, предпоследний параметре отвечает за формат передачи в ansii или в binary, а так же - заливать всегда оригинал локального файла или же можно брать из кэша.
а последний параметр указывает переменную которая содержить значения какого приложения, которое указывает на поиск каких то схожих приложениях...как то так )))
проще говоря, перед использованием _FTPPutFile, необходимо проверить есть ли такой же файл на FTP с помощью _FTPFileFindFirst, второй параметр отвечает за название какого файла искать....
возможно, используя трейти параметр в самой FtpFindFirstFile из wininet.dll можно указать структуру, которая будет получать расширеную информацию об найденном файле.....если правильно понял....значит, скореее всего, в этом инфо будет и дата созднаия/изминения файла, его размер и т.д..........
Добавлено:
buduc
Цитата:| как сравнить 2 .txt файла (содержимое),слова которые нет во первым file записать в новый файле .спасибо всем . |
особых способов не знаю, вот вариант вручную:
Код: #region: - Option
AutoItSetOption ('MustDeclareVars', 1)
AutoItSetOption ('TrayIconDebug', 1)
AutoItSetOption ('TrayIconHide', 0)
#endregion
Global $path_file_1, $path_file_2, $path_file_3, $new_words='', $file_1, $file_2, $i, $string_or_table
$path_file_1 = 'c:\file_1.txt'
$path_file_2 = 'c:\file_2.txt'
$path_file_3 = 'c:\file_3.txt'
;~ string - записать новые слова в строку
;~ table - записать новые слова в столбик
$string_or_table = 'table'
$file_1 = FileRead($path_file_1)
$file_2 = FileRead($path_file_2)
$file_2 = StringRegExpReplace($file_2, '\s+', Chr(32))
$file_2 = StringSplit($file_2, Chr(32))
If StringRegExp(StringLeft($file_1, 1), '\s') == 0 Then $file_1 = Chr(32) & $file_1
If StringRegExp(StringRight($file_1, 1), '\s') == 0 Then $file_1 &= Chr(32)
$i = 1
While $i <= $file_2[0]
If StringRegExp($file_1, '\s+' & $file_2[$i] & '\s+') == 0 Then
If $string_or_table == 'string' Then
If $new_words <> '' Then $new_words &= Chr(32)
$new_words &= $file_2[$i]
Else
If $new_words <> '' Then $new_words &= @CRLF
$new_words &= $file_2[$i]
EndIf
EndIf
$i += 1
WEnd
MsgBox(0, 'о_0', 'Неопознанные слова в файле:' & @CRLF & $path_file_2 & @CRLF & @CRLF & $new_words)
FileWrite(FileOpen($path_file_3, 2), $new_words) |
|
Всего записей: 556 | Зарегистр. 21-11-2007 | Отправлено: 06:32 11-02-2009 | Исправлено: sproxy, 15:15 11-02-2009 |
|
