Вниз
Скачать: CL | DM;

Текстовик   Найти похожие ветки 

← →
zdm   (2007-12-13 10:15) [0]

Добрый день. С текстовиками мало приходилось сталкиваться, а тут пришлось. В общем выгружаемый отчет, только в *.txt... ну сделал цикл по строкам POS() до нохождения определенного значения и дальше copy() с такого-то символа по такой. Но вот когда кол-во символов не статично, что делать? например. с символа 51 начинается сумма, она может быть любой, но после нее однозначно есть другой символ... т.е
.....5 100 00,25 Q.....
вот как мне с 51-го символа до "Q" схватить это число или строку(не принципиально) ?
Спасибо.


← →
tesseract ©   (2007-12-13 10:16) [1]


> вот как мне с 51-го символа до "Q" схватить это число или
> строку(не принципиально) ?


Используй разделители. Т.Е формат CSV.


← →
zdm77   (2007-12-13 10:19) [2]

tesseract ©
не могу, не моя прога, а она выгружает только в *txt


← →
tesseract ©   (2007-12-13 10:25) [3]

Гм. Разделитель пробелы ? Тогда придеться автоматик писать, в котором анализировать состояние переменных.


← →
Johnmen ©   (2007-12-13 10:28) [4]

Здесь copy вообще не нужен.
Сам идешь по строке с анализом текущего символа, используя текущее знание предыстории анализа.


← →
zdm77   (2007-12-13 10:29) [5]

по русски плиз... т.е. допустим выделю я ей(переменной) диапазон copy(str,51,10) в этом пределе точно встретится Q(ну или чтото однозначное) и вот от 51 до Q нужно отсечь все остальное.. или как узнать кол-во символов от начала до этого встретившегося символа


← →
zdm77   (2007-12-13 10:33) [6]


> Johnmen ©   (13.12.07 10:28) [4]

мне символ не нужен. мне нужно значение с определенной позиции до этого символа


← →
Vlad Oshin ©   (2007-12-13 10:47) [7]

i:=pos("q",str);
valS:=copy(str,51,i)
?


← →
Плохиш ©   (2007-12-13 10:52) [8]

sout:="";for i:= 51 to length(s) do if s[i] in [" ",decimalseparator,"0".."9"] then sout:=sout+s[i] else break;sout:=trim(sout);


← →
zdm77   (2007-12-13 10:55) [9]


> Vlad Oshin ©   (13.12.07 10:47) [7]

РЕСПЕКТ.
Всем спасибо, снимаю вопрос


← →
zdm77   (2007-12-13 10:56) [10]


> Плохиш ©   (13.12.07 10:52) [8]

Не успел прочесть... тоже тема.. дальше кстати пригодится. Спасибо


← →
Johnmen ©   (2007-12-13 11:35) [11]


> zdm77   (13.12.07 10:33) [6]

Читай ОСНОВЫ ПРОГРАММИРОВАНИЯ в любом доступном тебе виде.


← →
zdm77   (2007-12-13 11:41) [12]


> Johnmen ©   (13.12.07 11:35) [11]

Уже ответили на вопрос. [7], [8] Чо ты умничаешь-то? Мастеру это не к лицу.


← →
Johnmen ©   (2007-12-13 11:42) [13]


> zdm77   (13.12.07 11:41) [12]

Это был добрый совет.
Но твоя детская мнительность не дает тебе это понять. К сожалению...


← →
Johnmen ©   (2007-12-13 11:48) [14]

Убить zdm часть 2 - http://sql.ru/forum/actualthread.aspx?tid=505578
:)))


← →
zdm77   (2007-12-13 11:50) [15]

ну и чо смешного? спросил на двух форумах. Действительно не смог сооброзить. на то и форум. а тебе как мастеру действительно не к лицу подобными дешевыми подолостями заниматься


← →
Johnmen ©   (2007-12-13 11:53) [16]

Что мне к лицу я сам решу как-нибудь.
Один вопрос, а в чем "дешевизна" и в чем "подлость"?


← →
Anatoly Podgoretsky ©   (2007-12-13 12:09) [17]


> Плохиш ©   (13.12.07 10:52) [8]

Только это работать не будет, у него форматированый вывод.
Ну это уже задача автора, может сможет избавиться от этой подлости.



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

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



Память: 0.48 MB
Время: 0.011 c
2-1198155687
Stepper
2007-12-20 16:01
2008.01.20
Как в Delphi указать путь компиляции проекта? Типа: С:/Executable


2-1198140185
namco
2007-12-20 11:43
2008.01.20
программа из delphi


2-1198223766
ZLynX
2007-12-21 10:56
2008.01.20
переименование Файлов


2-1198222508
ZLynX
2007-12-21 10:35
2008.01.20
TFileStream


15-1197382004
@!!ex
2007-12-11 17:06
2008.01.20
Потестите эмулятор виртуальных десктопов




   Наверх