Вверх ↑
Этот топик читают: Гость
Ответов: 29
Рейтинг: 0
#1: 2012-11-21 18:39:29 ЛС | профиль | цитата
Подскажите пожалуйста, можно к примеру загружая текстовый файл в поле Memo, сделать так что бы обрезался список(нумерация с точками и без точек и пробелы) в строчках а остальная инфа оставалась, к примеру:

1. Папа
2. Мама
3. Сын
....
150. Дочь
1500. Авто
10000. Компьютер

или без точек

1 Папа
2 Мама
3 Сын
....
150 Дочь
1500 Авто
10000 Компьютер

и даже без пробелов

1Папа
2Мама
3Сын
....
150Дочь
1500Авто
10000Компьютер

нужно получить чистые данные:

Папа
Мама
Сын
....
Дочь
Авто
Компьютер

Как такое можно реализовать?
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#2: 2012-11-21 19:19:55 ЛС | профиль | цитата
code_29578.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_29578.txt [403B] [134]
Ответов: 3349
Рейтинг: 233
#3: 2012-11-21 19:47:12 ЛС | профиль | цитата
code_29579.txt
------------ Дoбавленo в 19.47:
Как вариант
карма: 1

0
файлы: 1code_29579.txt [578B] [150]
Ответов: 29
Рейтинг: 0
#4: 2012-11-21 19:51:00 ЛС | профиль | цитата
Tad писал(а):


спасибо за помощь, но не совсем то что я спрашивал, у вас похоже текст обрезаеться до точки, а мне нужно не так, вдруг это будет список сайтов в которых тоже точка?

то есть хотель бы что бы программа могла, не знаю как обьяснить может с помощью регулярок или по другому, вообщем напишу текстом логику:

1 удаляем все цифры до - точки или пробела или первой буквы
2 если есть точка перед пробелом или первой буквой, то удаляем точку
3 если есть пробел перед первой буквой, то удаляем пробел

То есть как то наподобе нужен алгоритм или что-то похожее, так как список может быть не просто 1. Папа 2. Мама, а например из сайтов:

1. abcd.ru
2. www.google.com
3. http://forum.hiasm.com
4. 123abc.ws

и может быть без точки

1 abcd.ru
2 www.google.com
3 http://forum.hiasm.com
4 123abc.ws

здесь то намного сложнее задача, уважамые магистры программы Hiasm, подскажите решение задачи!
карма: 1

0
Ответов: 8926
Рейтинг: 823
#5: 2012-11-21 19:52:51 ЛС | профиль | цитата
VarNick, Усли буковки только кирилицей: code_29580.txt, а вот так можно посмотреть коды букв: code_29581.txt (Читать справку и примечания к точкам! )
карма: 19

0
файлы: 2code_29580.txt [3.1KB] [133], code_29581.txt [495B] [130]
Ответов: 16884
Рейтинг: 1239
#6: 2012-11-21 19:58:26 ЛС | профиль | цитата
А ты их при записи в файл не нумеруй и проблемы не будет.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 29
Рейтинг: 0
#7: 2012-11-21 20:01:54 ЛС | профиль | цитата
Леонид писал(а):


спасибо буду разбирать код
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#8: 2012-11-21 20:49:32 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-02 20:26:38
карма: 0

0
Ответов: 29
Рейтинг: 0
#9: 2012-11-21 21:16:23 ЛС | профиль | цитата
37.45.115.192 писал(а):
VarNick
read flood >>
VarNick писал(а)уважамые магистры программы Hiasm
"Уж сколько раз твердили миру,
Что лесть гнусна, вредна; но только всё не впрок"


Чё за бред ты написал?
карма: 1

0
Ответов: 1536
Рейтинг: 176
#10: 2012-11-21 22:37:11 ЛС | профиль | цитата
VarNick, посмотри этот вариант. Вроде всё работает.

Add(MainForm,5939290,238,203)
{
Width=474
Height=502
}
Add(Memo,2219104,329,105)
{
Left=15
Top=10
Width=195
Height=455
Strings=#7:1. Папа|7:2. Мама|6:3. Сын|4:....|9:150. Дочь|10:1500. Авто|16:10000. Компьютер|0:|19:или без точек|0:|6:1 Папа|6:2 Мама|5:3 Сын|4:....|8:150 Дочь|9:1500 Авто|15:10000 Компьютер|0:|19:и даже без пробелов|0:|5:1Папа|5:2Мама|4:3Сын|4:....|7:150Дочь|8:1500Авто|14:10000Компьютер|0:|29:нужно получить чистые данные:|0:|4:Папа|4:Мама|3:Сын|4:....|4:Дочь|4:Авто|9:Компьютер|0:|10:1. abcd.ru|17:2. www.google.com|25:3. http://forum.hiasm.com|12:4. 123abc.ws|0:|22:и может быть без точки|0:|9:1 abcd.ru|16:2 www.google.com|24:3 http://forum.hiasm.com|11:4 123abc.ws|
ScrollBars=3
}
Add(RE_Search,319367,434,203)
{
Expression="^[0-9.]"
ModifierM=0
ModifierX=0
link(onMatch,10140256:doDelete,[])
link(onNotFound,7930103:doEnum,[])
}
Add(Delete,10140256,476,203)
{
link(onDelete,528938:doWork1,[(520,209)(520,200)(375,200)])
link(Str,3503242:Var2,[])
link(Position,319367:MatchPos,[(489,186)(535,186)(535,254)(447,254)])
link(Count,319367:MatchLen,[(496,193)(527,193)(527,245)(454,245)])
}
Add(Trim,13046289,595,210)
{
Char=" "
Mode=7
link(onTrim,4438604:doAdd,[])
}
Add(Str_Enum,7930103,546,210)
{
Delimiter="
"
From=0
link(onEnum,13046289:doTrim,[])
link(onEndEnum,6300716:doFilter,[(590,223)(590,272)])
link(String,3503242:Var3,[(552,180)])
}
Add(GetDataEx,3503242,476,175)
{
Angle=3
link(Data,5970792:Value,[(427,180)(427,247)(391,247)])
}
Add(Memory,5970792,385,203)
{
link(onData,319367:doExec,[])
}
Add(DoData,12294419,329,203)
{
link(onEventData,528938:doWork2,[])
link(Data,2219104:Text,[])
}
Add(HubEx,528938,371,203)
{
link(onEvent,5970792:doValue,[])
}
Add(Memo,2176698,742,266)
{
Left=255
Top=10
Width=195
Height=455
ScrollBars=3
}
Add(ArrayFilterRepeats,6300716,679,266)
{
link(onFilter,2176698:doAdd,[])
link(Array,4438604:Array,[])
}
Add(StrList,4438604,665,210)
{
}
Add(Button,8750880,238,154)
{
Left=215
Top=35
Width=35
Height=80
Caption=">>"
link(onClick,1093190:doEvent1,[])
}
Add(Hub,1093190,287,154)
{
OutCount=3
link(onEvent1,2176698:doClear,[(718,160)(718,279)])
link(onEvent2,4438604:doClear,[(640,167)(640,223)])
link(onEvent3,12294419:doData,[(315,174)(315,209)])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#11: 2012-11-22 01:01:26 ЛС | профиль | цитата
ser_davkin, text.rar
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1text.rar [1011B] [74]
Ответов: 29
Рейтинг: 0
#12: 2012-11-23 23:10:40 ЛС | профиль | цитата
Tad писал(а):

Да спасибо вариант конечно простой, но я в Delphi ни бум бум, Tad не мог бы помочь как подключить с диалоговым окном загрузки текстового файла твой вариант text.rar
карма: 1

0
Ответов: 1536
Рейтинг: 176
#13: 2012-11-23 23:20:43 ЛС | профиль | цитата
VarNick писал(а):
как подключить с диалоговым окном загрузки текстового файла

Ничего сложного.
code_29601.txt
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
файлы: 1code_29601.txt [2.6KB] [106]
Ответов: 29
Рейтинг: 0
#14: 2012-11-23 23:32:04 ЛС | профиль | цитата
ser_davkin писал(а):
Ничего сложного.
code_29601.txt


Странно не пойму чёто кнопка не срабатывает, Элемент из фигур почему то перечёркнут, в справке внизу пишеться Element RE_Search not found in current palette.
карма: 1

0
Ответов: 1536
Рейтинг: 176
#15: 2012-11-23 23:35:45 ЛС | профиль | цитата
Alternative build HiAsm Устанавливай и обновляй компоненты.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)