Создал окно в нем поле l_loadWorkData STRING(4096). Парсю перебором всех символов. Разделитель поставил ';' , но не получается определить конец строки CR, определяю так:
Код: Выделить всё
l_CLRF EQUATE('<13,10>')
r_symb STRING(1)
r_field BYTE
r_fieldAdd STRING(256)
CODE
lastEnd# = LEN(CLIP(l_loadWorkData))
r_field = 1
LOOP i# = 1 TO lastEnd#
r_symb = l_loadWorkData[i#]
! ====== записываем в поля ==============
IF (r_symb =';' OR r_symb ='ж' OR r_symb ='Ж')
! штрих код
IF l_pBCsort = r_field
Any1Table_m:str2 = r_fieldAdd
END
! кол-во
IF l_pBCsort = r_field
Any1Table_m:str1 = r_fieldAdd
END
r_fieldAdd = ''
r_field += 1
! ========== конец строки =================
ELSIF (r_symb = CHR(13) OR r_symb = '<13>' OR r_symb = l_CLRF) ! НЕ ВИДИТ ОКОНЧАНИЕ СТРОКИ
Any1Table_m:id = next#
ADD(Any1Table_m)
l_loadWorkData = ''
next# += 1
! ========== считываем по символам ========
ELSE
r_fieldAdd = CLIP(r_fieldAdd) & r_symb
END
END
Спасибо за внимание.