Скачать: CL | DM;

Загрузка файла в TStringList   Найти похожие ветки 

← →
Ольга   (2005-11-13 13:25) [0]

Задача такая: выстричь команду GO из файла со скриптами.
Загружаю файл в TStringList. При этом получаю StringList.Count = 1, хотя в файле строк много. На выходе получаю странную строку: "яюi"
Не могу понять, где ошибка:

procedure LoadSQLFromFile(filename: string; Comm: TADOCommand);
var  SList: TStringList; i: integer;
begin
 Comm.CommandText:="";
 SList:= TStringList.Create;
 SList.LoadFromFile(filename);
 for i:=0 to SList.Count-1 do
 if Trim(SList.Strings[i])<>"GO" then
    Comm.CommandText:=Comm.CommandText+SList.Strings[i];
 SList.Free;
end;


---

← →
sniknik ©   (2005-11-13 13:52) [1]

> На выходе получаю странную строку: "яюi"
а не в юникоде ли открываемый файл? (пожоже на заголовок оного)
http://delphimaster.net/view/2-1129763043/

> Задача такая: выстричь команду GO из файла со скриптами.
не надо так делать. GO ставится (в основном) как завершение логического блока, и последующие команды должны выполнятся при гарантированном завершении предыдуших. не всегда, но убирание GO и выполнение скрипта единым блоком, может привести к глюкам.

лучше сделать разбиение и выполнение этих блоков по GO отдельно, последовательно, так же как делает QA (для которого скрипт с ними в принципе и предназначен)

---

← →
string   (2005-11-13 13:54) [2]

Может быть в обрабатываемом файле нет одного из символов перевода строки ? (#13,#10)

---

← →
sniknik ©   (2005-11-13 13:57) [3]

p.s.
http://delphimaster.net/view/2-1129763043/

---

← →
gdaujk ©   (2005-11-13 14:03) [4]

По-моему надо заменить у переменной SList тип на TStrings.

---

← →
Ольга   (2005-11-13 14:18) [5]

Да, именно в юникоде и был создан скрипт. Пересобрала скрипт в windows кодировке. Строки считались. И тут же наткнулась на ошибку при создании триггера. В общем, все о чем вы, sniknik, меня предупреждали и случилось.
Буду выполнять скрипт поблочно. Спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.043 c