Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
05.06.2010, 09:09
|
|
Познающий
Регистрация: 06.05.2010
Сообщений: 34
Провел на форуме:
20723
Репутация:
0
|
|
ВОПРОС ОСТАЛСЯ ОТКРЫТЫМ.
Сообщение от slesh
тему научись сначало правильно называть, затем хоть почитай доку по делфи, и тока потом называй это НЕВЕРОЯТНО трудной задачей.
тебе реально достаточно пробежаться по всем элементам и сравнить по двум условиям
1) пустая строка. просто проверяй <> '';
2) проверя строку на пробелы. циклом прогоняй по всем символам и если символ не пробел, то строку оставляй в покое. тоже самое и на табуляторы проверяй.
Хотя можеш и trim заюзать, но всё равно могут быть еще непечатные символы, которые трим может пропустить случайно
Сообщение от slesh
тему научись сначало правильно называть
Тема названа так - потому что это действительно не простая задача, как оказалось - ни один из предложенных вариантов пользователями этого форума не сработал.
Сообщение от slesh
затем хоть почитай доку по делфи
Я дофига прочитал, а нормального удаления пустых строк и строк состоящих из пробелов не нашел. Все методы не дают достаточного результата.
Если знаеш учебник, который я пропустил - ткни пальцем. Буду очень благодарен.
Сообщение от slesh
тебе реально достаточно пробежаться по всем элементам и сравнить по двум условиям
1) пустая строка. просто проверяй <> '';
2) проверя строку на пробелы. циклом прогоняй по всем символам и если символ не пробел, то строку оставляй в покое. тоже самое и на табуляторы проверяй.
Хотя можеш и trim заюзать, но всё равно могут быть еще непечатные символы, которые трим может пропустить случайно
На словах то каждый тут просто гений, а реально работающий код никто не может предложить. Не ужели эта задача нерешаема? 
|
|
|
05.06.2010, 09:14
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Может у тебя проблема в том, что в Memo1 находится не только пробелы и пустые строки или табуляторы а еще какая нить непечатная фигня? И ты по этому поводу мозги угукаешь людям.
Код:
var
x : integer;
begin
for x := Memo1.Lines.Count - 1 downto 0 do
begin
if trim(Memo1.Lines.Strings[x]) = '' then Memo1.Lines.Delete(x);
end;
end;
Отлично удаляет пустые строки, строки состоящие из пробелов, строки состоящие из табуляторов и строки состоящие из табов и пробелов.
Последний раз редактировалось slesh; 05.06.2010 в 09:24..
|
|
|
|
05.06.2010, 09:18
|
|
Участник форума
Регистрация: 09.03.2009
Сообщений: 178
Провел на форуме:
1605524
Репутация:
523
|
|
Код:
var
I: Integer;
begin
for I := 0 to Memo1.Lines.Count - 1 do
begin
if (Memo1.Lines[I] <> '') and (Trim(Memo1.Lines[I]) <> '') then
Memo2.Lines.Add(Memo1.Lines[I]);
end;
end;
|
|
|
|
HTML код в мемо находится. |
05.06.2010, 09:24
|
|
Познающий
Регистрация: 06.05.2010
Сообщений: 34
Провел на форуме:
20723
Репутация:
0
|
|
HTML код в мемо находится.
Сообщение от slesh
Может у тебя проблема в том, что в Memo1 находится не только пробелы и пустые строки или табуляторы а еще какая нить непечатная фигня? И ты по этому поводу мозги угукаешь людям
Код:
<DIV align="center"><P style="font-family:
Verdana; font-size:11px; text-
indent:0px"><STRONG><FONT
color="#cc0000" size="4"
face="Verdana">Хотите бесплатно получать 2
-3 видеоурока каждый месяц?
</FONT></STRONG></P></DIV>
<TABLE width="477" height="230" border="0"
align="center">
<TBODY><TR> <TD
width="36%"
rowspan="8" align="center" valign="top"><DIV
class="widget">
<FORM
name="SR_form" method="post" target="_blank"
action="http://smartresponder.ru/subscribe.html"
onsubmit="return SR_submit(this)">
<INPUT type="hidden"
name="version" value="1">
<INPUT type="hidden" name="tid"
value="34769">
<INPUT type="hidden" name="uid"
value="27025">
<INPUT type="hidden" name="charset"
value="windows-1251">
<INPUT type="hidden" name="lang" value="1">
<INPUT type="hidden" name="did[]"
value="9267">
<P style="font-family: Verdana,sans-
serif; margin:0px; padding:0px; color: #000000;
font-size: 11px; font-weight: normal; text-
indent:0px"> Ваше имя на русском:
<INPUT type="text"
name="field_name_first" size="23" value=""
maxlength="50" style="border: 1px #c1c1c1
solid; font-family: Verdana; font-size: 11px;
width:140; color:#424242;"></P>
<P style="font-family: Verdana,sans-
serif; margin:0px; padding:0px; color: #000000;
font-size: 11px; font-weight: normal; text-
indent:0px"> Ваш Email адрес:
<INPUT type="text"
name="field_email" size="23" value=""
maxlength="50" style="margin:0px; padding:0px;
border: 1px #c1c1c1 solid; font-family: Verdana;
font-size: 11px; width:140; color:#424242;"></P>
<P style="margin:5px;margin-
top:10px; padding:0px; text-indent:0px">
<INPUT type="submit"
name="SR_submitButton" value="Да, хочу"
style=" font-family: Verdana, sans-serif; border:1px
gray solid; font-size: 11px; width:140px;
height:20px; background-Color:#f6f6f6;
background-image: url(img/button2.gif);
color:#000000; font-weight:bold;">
</P>
</FORM>
</DIV>
<P style="font-family: Verdana; font-size:11px;
text-indent:0px"><STRONG>Вводите данные в
форму и жмите по кнопке "Да,
хочу".</STRONG></P>
<P style="font-family: Verdana; font-size:11px;
text-indent:0px"><FONT
color="#cc0000">Приватность Ваших данных
гарантируется.</FONT></P>
</TD>
<TD width="64%"><P
class="ds"><FONT color="#0500CC">+
<STRONG>Свежие
скрипты</STRONG></FONT></P></TD>
</TR>
<TR>
<TD><P
class="ds"><FONT color="#0ECC00">
<STRONG>+ Свежие
статьи</STRONG></FONT></P></TD>
</TR>
<TR>
<TD><P
class="ds"><FONT color="#cc0000">+
<STRONG>Свежие
программы</STRONG></FONT></P></TD>
</TR>
<TR>
<TD><P class="ds">
+ Конкурсы с
денежными призами</P></TD>
</TR>
<TR>
<TD><P class="ds">
+ <STRONG>100% авторский
материал</STRONG></P></TD>
</TR>
<TR>
<TD><P class="ds">
+ Более 60000
читателей</P></TD>
</TR>
<TR>
<TD><P class="ds">
+ Более 100
положительных отзывов</P></TD>
</TR>
<TR>
<TD><P
class="ds"></P></TD>
</TR>
</TBODY></TABLE></TD></TR></TBODY></
TABLE></TD></TR></TBODY></TABLE></TD
></TR></TBODY>
____________________________________________
Вот отсюда нужно удалить лишние строки. Какие еще непечатные символы тут могут быть???
Последний раз редактировалось slesh; 05.06.2010 в 09:28..
|
|
|
|
05.06.2010, 09:26
|
|
Участник форума
Регистрация: 09.03.2009
Сообщений: 178
Провел на форуме:
1605524
Репутация:
523
|
|
Кидай такой длинный текст в тег CODE
|
|
|
|
05.06.2010, 09:26
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
народ, вы не забывайте что проход должен быть с конца списка а не с начала, потому что строки сдвигаются и тогда будут пропуски.
|
|
|
|
05.06.2010, 09:27
|
|
Участник форума
Регистрация: 09.03.2009
Сообщений: 178
Провел на форуме:
1605524
Репутация:
523
|
|
Код:
var
I: Integer;
begin
I := 0;
while Memo1.Lines.Count <> I do
begin
if (Memo1.Lines[I] <> '') and (Trim(Memo1.Lines[I]) <> '') then
Inc(I)
else
Memo1.Lines.Delete(I);
end;
end;
Данный код убрал пробелы и пустые строки с твоего HTML |
|
|
|
05.06.2010, 09:27
|
|
Познающий
Регистрация: 06.05.2010
Сообщений: 34
Провел на форуме:
20723
Репутация:
0
|
|
СРАБОТАЛО!!!
Сообщение от AquaKlaster
Код:
var
I: Integer;
begin
for I := 0 to Memo1.Lines.Count - 1 do
begin
if (Memo1.Lines[I] <> '') and (Trim(Memo1.Lines[I]) <> '') then
Memo2.Lines.Add(Memo1.Lines[I]);
end;
end;
Чувак!!!! ты гений!! Невероятно, но это сработало! 
Спасибо большое!
|
|
|
|
05.06.2010, 09:29
|
|
Участник форума
Регистрация: 09.03.2009
Сообщений: 178
Провел на форуме:
1605524
Репутация:
523
|
|
Сообщение от Dimon32
Чувак!!!! ты гений!! Невероятно, но это сработало!
Спасибо большое! Советую юзать мой второй код, он работает с 1 memo!
|
|
|
|
05.06.2010, 09:29
|
|
Познающий
Регистрация: 06.05.2010
Сообщений: 34
Провел на форуме:
20723
Репутация:
0
|
|
Сообщение от AquaKlaster
Кидай такой длинный текст в тег CODE
Ваш этот тег убирает как раз ненужные строки))). (Когда вставляеш)
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
