Помогите c TXT файлом

[Blade85]

Вот такая ситуация:
Мне надо загрузить в таблицу данные с txt файла для этого сделал:

f.TEXTMODE(TRUE);
f.OPEN(CommonDlgMgt.GetPath + CommonDlgMgt.GetFileName);
f.CREATEINSTREAM(StreamInObj);
i := 1;
WHILE NOT (StreamInObj.EOS()) DO
BEGIN
StreamInObj.READTEXT(buffer);

s:=Explode(buffer,2); //это второе поле из файла
rsHeader."Sell-to Customer No." := s; //присудил этому полю второе поле из буфера

MESSAGE('Line No. %1 %2', i , buffer);
i:=i+1;
END;
f.CLOSE();
END;
END;

А обработка строки такое::
Функция Explode

FOR i:=1 TO Number DO BEGIN
s:=COPYSTR(Buffer,1,STRPOS(Buffer,';')-1);
Buffer:=COPYSTR(Buffer,STRPOS(Buffer,';')+1);
END;

вот тут какая то ошибка при загрузке выходит ошибка :
Значение COPYCTR параметра 3 находится за пределами разрешенного интервала
текущее значение -1
Разоешенный интервал от 0...235346457

[Fordewind]

Посмотри дебаггером, что хранится в переменной Buffer в строке:

s:=COPYSTR(Buffer,1,STRPOS(Buffer,';')-1);

Доп.вопрос: Почему не используешь датапорт?

[romeo]

STRPOS(Buffer,';') возвращает ноль. Нет точки с запятой видимо в строке Buffer.

[Blade85]

В строке buffer везде стоит вроде точка запятая.
Этот цикл читает по строкам. Теперь надо чтоб эти строки разделяло и загружало в поле таблиц

[Fordewind]

Цитата:

Сообщение от Blade85

В строке buffer везде стоит вроде точка запятая.
Этот цикл читает по строкам. Теперь надо чтоб эти строки разделяло и загружало в поле таблиц

А сколько полей в загружаемом файле? Number или Number + 1?

[Blade85]

Прмерно так:
[Header]
‡ Є §;9;Џђ.‡-00077;9;?‚ЂЌЋ‚ Ђ.;.......
‡ Є §;9;Џђ.‡-00077;9;?‚ЂЌЋ‚ Ђ.;.......
[body]
‡ Є §;9;Џђ.‡-00077;9;?‚ЂЌЋ‚ Ђ.;.......
‡ Є §;9;Џђ.‡-00077;9;?‚ЂЌЋ‚ Ђ.;....примерно так выглядит загружаемый файл
Мне надо обработчик сделать
чтобы поля отделяло смотря ";"

[apanko]

Ваш код у меня работает.

Переменные i, s, buffer используются одновременно в двух функциях. Я правильно понял, что i и s локальные в каждой, а у буфера стоит флаг VAR?

f_main()
f.TEXTMODE(TRUE);
f.OPEN('C:\111.txt');
f.CREATEINSTREAM(StreamInObj);
i := 1;
WHILE NOT (StreamInObj.EOS()) DO BEGIN
  StreamInObj.READTEXT(buffer);

  s:=Explode(buffer,2); //второе поле
  
  MESSAGE('Line No. %1 %2', i , s);  //показать второе поле
  i+=1;
END;
f.CLOSE();

Explode(VAR buffer : Text[1024];number : Integer) s2 : Text[1024]
FOR t:=1 TO Number DO BEGIN
  s2:=COPYSTR(Buffer,1,STRPOS(Buffer,';')-1);
  Buffer:=COPYSTR(Buffer,STRPOS(Buffer,';')+1);
END;

[Blade85]

все равно не работает сделал вот так, ка и вы

IF CommonDlgMgt.OpenFileEx('Îòêðûòèå ýëåêòðîííîé íàêëàäíîé','',TextFilter,1) THEN BEGIN
IF NOT FILE.EXISTS(CommonDlgMgt.GetPath + CommonDlgMgt.GetFileName) THEN
MESSAGE('Ôàéë ' + CommonDlgMgt.GetFileName + ' íå íàéäåí!')
ELSE BEGIN
f.TEXTMODE(TRUE);
f.OPEN(CommonDlgMgt.GetPath + CommonDlgMgt.GetFileName);
f.CREATEINSTREAM(StreamInObj);
i := 1;
WHILE NOT (StreamInObj.EOS()) DO
BEGIN
StreamInObj.READTEXT(buffer);
s2:=Explode(buffer,2);
MESSAGE('Line No. %1 %2', i , s2); //ïîêàçàòü âòîðîå ïîëå
i := i + 1;
END;
f.CLOSE();
END;
END;


Explode(Buffer : Text[1024];Number : Integer) s2 : Text[1024]
FOR i:=1 TO Number DO BEGIN
s2:=COPYSTR(Buffer,1,STRPOS(Buffer,';')-1);
Buffer:=COPYSTR(Buffer,STRPOS(Buffer,';')+1);
END;

может неправильно открываю файл?

[romeo]

Несмотря на то, что в строке все время гарантированно есть необходимое число точек с запятой я бы обработал ситуацию, когда по каким-либо причинам точка с запятой не нашлась ... То есть взял бы под IF строку STRPOS(Buffer,';')

[apanko]

В функции Explode значение переменной buffer скорее всего равно '' (Пустая строка).

Решить эту проблему можно как минимум двумя способами:
1. В окне C/AL locals, на закладке parameters напротив строки Buffer нужно установить флаг в поле VAR.

2. Переменную buffer объявить как глобальную. Тогда в функцию Explode значение переменной buffer передавать не нужно (в окне C/AL locals, на закладке parameters удалить строку Buffer).

[Blade85]

Цитата:

Сообщение от romeo

Несмотря на то, что в строке все время гарантированно есть необходимое число точек с запятой я бы обработал ситуацию, когда по каким-либо причинам точка с запятой не нашлась ... То есть взял бы под IF строку STRPOS(Buffer,';')

а по конкретнее покажите такой код


FOR i:=1 TO Number DO BEGIN

s2:=COPYSTR(Buffer,1,STRPOS(Buffer,';')-1);
Buffer:=COPYSTR(Buffer,STRPOS(Buffer,';')+1);
END;

Цитата:

Сообщение от apanko

В функции Эксплоде. Поставьте флаг VAR=Да у переменной Buffer.

Или сделайте Буффер глобальным и вообще в функцию Эксплоде ее не передавайте.

А то буффер в эксплоде пустой. Можете проверить.

галочку в Var то поставил. все равно дает ошибку

[apanko]

Кстати, romeo прав на 100%

Не во всех строках у вас стоит символ ; например его нет в строках [header] и [body].

IF STRPOS(Buffer,';')>0 THEN
  FOR i:=1 TO Number DO BEGIN

	s2:=COPYSTR(Buffer,1,STRPOS(Buffer,';')-1);
	Buffer:=COPYSTR(Buffer,STRPOS(Buffer,';')+1);
  END;

[Blade85]

ОООООООО!!!!!!!!
Спасибо!!!!!!!!!!!!!!
Читает!!!!!!!!!!!!!!! Большой РЕСПЕКТ!!!!!!!!!!!!!
Если что напишу!!!!!!!!!!!!!!!!!!

[Blade85]

IF CommonDlgMgt.OpenFileEx('Îòêðûòèå ýëåêòðîííîé íàêëàäíîé','',TextFilter,1) THEN BEGIN
IF NOT FILE.EXISTS(CommonDlgMgt.GetPath + CommonDlgMgt.GetFileName) THEN
MESSAGE('Ôàéë ' + CommonDlgMgt.GetFileName + ' íå íàéäåí!')
ELSE BEGIN
f.TEXTMODE(TRUE);
f.OPEN(CommonDlgMgt.GetPath + CommonDlgMgt.GetFileName);
f.CREATEINSTREAM(StreamInObj);
i := 1;
WHILE NOT (StreamInObj.EOS()) DO
BEGIN
StreamInObj.READTEXT(buffer);
IF buffer='[Header]' THEN
BEGIN
s2:=Explode(buffer,2);
MESSAGE('Line No. %1 %2', i , s2); //ïîêàçàòü âòîðîå ïîëå
i := i + 1;
END;
END;
f.CLOSE();
END;
END;

Такое условие не принимает???
Я хочу так если Header то загружало в таблицу №1
Если Body то в таблицу №2