Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Старожил


Сообщения: 168
Благодарности: 40

Профиль | Отправить PM | Цитировать


Что-нибудь вроде такого
Код: Выделить весь код
;Читаем файл
$txt = FileRead(@ScriptDir & "\1.txt")
; Проверяем конец строки - DOS/Unix/Mac
Select
    Case StringInStr($txt, @CRLF) > 0
        $sDelimiter = @CRLF
    Case StringInStr($txt, @LF) > 0
        $sDelimiter = @LF
    Case Else
        $sDelimiter = @CR
EndSelect
; Помещаем строки в массив (если файл без заморочек
;создавался в блокноте Windows, то, вероятно, можно
;сразу заменить $sDelimiter на @CRLF и убрать Select...EndSelect выше)
$aLines = StringSplit($txt, $sDelimiter, 1)

For $i = 1 To $aLines[0]
    Send($aLines[$i])
    Send("{TAB 2}")
Next
?
Или должно быть
Код: Выделить весь код
Send('"' & $aLines[$i] & '"')
?
Ни разу не пользовался функцией Send

-------
ОЗ


Последний раз редактировалось oz84, 09-05-2014 в 06:11.

Это сообщение посчитали полезным следующие участники:

Отправлено: 05:45, 09-05-2014 | #2