purebasic.info

PureBasic forum
Текущее время: Ср сен 19, 2018 4:49 am

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 442 ]  На страницу Пред.  1 ... 26, 27, 28, 29, 30  След.
Автор Сообщение
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Вт янв 05, 2016 7:29 pm 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6382
Благодарил (а): 20 раз.
Поблагодарили: 198 раз.
Пункты репутации: 48
Пётр писал(а):
Например там написано что Фред сейчас живет не во Франции, а в Литве :shock: и в апреле ожидается появление Фреда младшего! :)

А чего удивляться то, женился на нормальной девушке, которая увезла его к себе на родину, подальше от европейских толерантных ценностей.
Правда на долго ли, скорее всего если не одумаются, то и в прибалтийские страны подкинет Меркель арабов, негров и прочие "сливки" общества.
В Париже более 20 процентов выходцев с арабских и африканских стран, из за повышенной опасности запрещены массовые празднования Нового года. В Кёльне и других городах Германии разрешили прадновать. В итоге беженцы весело, с петардами и дикими воплями грабили и насиловали немецких женщин прямо на главных площадях этих городов! А полицейские толерантно смотрели на всё это безобразие.
А уже сколько до этого в Париже и остальной Франции было инцидентов, начиная с начала 2000-х, в год по несколько погромов. Думаю лет через 10 будут отлавливать христиан Европы с целью отрезания голов под весёлые взгляды прессы и полиции.
Всё же искренне надеюсь, что до России такая толерантность не придет, и мои внуки будут жить, пусть не очень богато, но спокойно.

_________________
read-only


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Вт янв 05, 2016 8:10 pm 
Не в сети
док

Зарегистрирован: Ср июн 18, 2014 6:34 pm
Сообщений: 104
Благодарил (а): 2 раз.
Поблагодарили: 1 раз.
Пункты репутации: 0
kvitaliy писал(а):
...и мои внуки будут жить, пусть не очень богато, но спокойно.
Доктор, жить буду?
Будете... но очень бедно.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Вт янв 05, 2016 8:11 pm 
Не в сети
док

Зарегистрирован: Сб окт 31, 2009 7:44 am
Сообщений: 168
Благодарил (а): 92 раз.
Поблагодарили: 5 раз.
Пункты репутации: 0
ну, пострадавших же нет? Никто не жаловался? Может, немецкие женщины и сами не против, так как немецкие мужчины немножко не той ориентации. Что касается христианства, то чем старше становлюсь и больше изучаю этот вопрос, тем больше вижу ошибочность/искуственность/противоречивость и навязанность этой религии извне, чуждость русскому духу. Мусульманство принимается легко и безболезненно (прочитать пару обзацев из корана при свидетелях), обрезание необязательно, можно лет десять ходить в "учениках".. так что не вижу принципиальных проблем чтобы в случае ЧП сменить религию (лучше, конечно, язычество возродить и поклонятся солнцу..). Религиозый вопрос давно пора (человечеству) закрыть.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Вт янв 05, 2016 8:15 pm 
Не в сети
док

Зарегистрирован: Сб окт 31, 2009 7:44 am
Сообщений: 168
Благодарил (а): 92 раз.
Поблагодарили: 5 раз.
Пункты репутации: 0
п.с. опыт Ливии, Египта и Ирака показывает, что ислам может быть вполне светским (женщины ходят без паранджи, общие школы, негласное равноправие мужчин и женщин) и в то же время достаточно жестким, чтобы удерживать общество в рамках морали (чего христианство давно не делает).


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Вт янв 05, 2016 8:24 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Чт июн 25, 2009 1:02 pm
Сообщений: 2285
Откуда: Russia — Belarus
Благодарил (а): 6 раз.
Поблагодарили: 72 раз.
Пункты репутации: 11
Цитата:
Всё же искренне надеюсь, что до России такая толерантность не придет, и мои внуки будут жить, пусть не очень богато, но спокойно.

Изображение

_________________
EnableExplicit User


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Вт янв 05, 2016 8:50 pm 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6382
Благодарил (а): 20 раз.
Поблагодарили: 198 раз.
Пункты репутации: 48
bizdon писал(а):
п.с. опыт Ливии, Египта и Ирака показывает, что ислам может быть вполне светским (женщины ходят без паранджи, общие школы, негласное равноправие мужчин и женщин) и в то же время достаточно жестким, чтобы удерживать общество в рамках морали (чего христианство давно не делает).

А это не они там друг дружку (шииты и сунниты) в общественных местах светски взрывают? А головы кто режет, а детей кто заставляет быть палачами? Мне кажется они между собой не могут разобраться.
Замете, я не против какой либо религии. И меня совершенно не оскорбляют толпы молящихся в будь то в церкви, синагоге или там рядом с мечетью.
Но я строго за то, что если ты гость, то веди себя как гость, по законам страны проживания, а не как последняя скотина.
И это и ко всем относится, в том числе и нашим туристам за границей.

bizdon писал(а):
Может, немецкие женщины и сами не против

bizdon ты это сейчас реально ?
"немецкие мужчины немножко не той ориентации" - похоже, ты с ними в одной компании тусуешься, после твоих слов о женщинах.

_________________
read-only


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Ср янв 06, 2016 12:22 am 
Не в сети
док

Зарегистрирован: Ср июн 18, 2014 6:34 pm
Сообщений: 104
Благодарил (а): 2 раз.
Поблагодарили: 1 раз.
Пункты репутации: 0
Я 14 лет в интернете... Провёл огромную долгую жизнь на форумах.
Я ни разу не видел случая, чтобы вопрос о религиях заканчивался без скандала.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Ср янв 06, 2016 12:33 am 
Не в сети
док
Аватар пользователя

Зарегистрирован: Сб мар 28, 2015 11:06 pm
Сообщений: 147
Откуда: Україна
Благодарил (а): 10 раз.
Поблагодарили: 10 раз.
Пункты репутации: 4
Может поговорить не о чем? ))

Позвольте тогда вопросик, может кому попадалась функция или подскажет как написать:
читаю кусками данные из бинарника и мне надо бы проверить эти куски на наличии чистого текста (латиница+цифыры+знаки препинания), ну то есть если "мусор" в тексте - брак, если только текст - ок


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Ср янв 06, 2016 1:08 am 
Не в сети
МОДЕРАТОР
Аватар пользователя

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11255
Благодарил (а): 4 раз.
Поблагодарили: 429 раз.
Цифры и буквы.
Код:
1
2
3
4
5
6
7
8
9
10
Char = '2'
 
If (Char >='0' And Char <='9') Or
   (Char >='A' And Char <='Z') Or
   (Char >='a' And Char <='z')
 
  Debug "OK"
Else
  Debug "Мусор!"
EndIf

Знаки препинания добавляются аналогично.

_________________
Компьютер позволяет решать все те проблемы, которые до его изобретения не существовали. :) :)


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Ср янв 06, 2016 7:33 am 
Не в сети
док

Зарегистрирован: Сб окт 31, 2009 7:44 am
Сообщений: 168
Благодарил (а): 92 раз.
Поблагодарили: 5 раз.
Пункты репутации: 0
kvitaliy - это была шутка/сарказм. (не могу же я сказать: "вешать этих ч...х"). Вот на Корсике мужики молодцы - быстро навели порядок, а с немцами, похоже, правда что-то "не то"..


Последний раз редактировалось bizdon Ср янв 06, 2016 10:22 am, всего редактировалось 1 раз.

Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Ср янв 06, 2016 8:00 am 
Не в сети
док
Аватар пользователя

Зарегистрирован: Сб мар 28, 2015 11:06 pm
Сообщений: 147
Откуда: Україна
Благодарил (а): 10 раз.
Поблагодарили: 10 раз.
Пункты репутации: 4
Пётр Спасиб за подзатыльник, глянул на код и сразу вспомнил про регулярки
Код:
1
2
3
4
5
6
CreateRegularExpression(0, "([^a-zA-Z0-9\s\.\,\-\!])")
If Not MatchRegularExpression(0, "Hello World!")
  Debug "OK"
Else
  Debug "Мусор!"
EndIf



а не затруднит простенький пример перебора если "алфавит" грузится из внешнего файла, ну например Alphabet.s="AaBbCc" ?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Ср янв 06, 2016 8:54 am 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6382
Благодарил (а): 20 раз.
Поблагодарили: 198 раз.
Пункты репутации: 48
bizdon писал(а):
kvitaliy - это была шутка/сарказм.

Ты когда шуткуешь, то смайлики ставь.

_________________
read-only


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Чт янв 07, 2016 4:48 am 
Не в сети
профессор

Зарегистрирован: Вс июн 10, 2012 8:18 am
Сообщений: 1294
Благодарил (а): 60 раз.
Поблагодарили: 49 раз.
Пункты репутации: 14
bizdon писал(а):
ну, пострадавших же нет? Никто не жаловался?

Около сотни обращений в полицию по поводу арабов-насильников.

bizdon писал(а):
Что касается христианства, то чем старше становлюсь и больше изучаю этот вопрос, тем больше вижу ошибочность/искуственность/противоречивость и навязанность этой религии извне, чуждость русскому духу. Мусульманство принимается легко и безболезненно (прочитать пару обзацев из корана при свидетелях), обрезание необязательно, можно лет десять ходить в "учениках".

"Религия - опиум народа" (С) К.Маркс
Кто может жить честно без нее - тому она не нужна.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Чт янв 07, 2016 5:23 am 
Не в сети
профессор

Зарегистрирован: Вс июн 10, 2012 8:18 am
Сообщений: 1294
Благодарил (а): 60 раз.
Поблагодарили: 49 раз.
Пункты репутации: 14
LinXP писал(а):
а не затруднит простенький пример перебора если "алфавит" грузится из внешнего файла

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

Я вот так строки ищу
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Procedure GetString(*MemoryID,length)
 
  Protected b.a
  Protected f.i
 
  For i=*MemoryID To *MemoryID+length-1
   
    b= PeekA(i)
    If ( b >= 32 And b <= 126) ;Or (b >= 192 And b <= 255) ;Раскомментировать, если нужна кириллица
      f+1    
    Else    
      If f >=4  ;Длинна строки
        HexStr1$ = RSet(Hex((i-*MemoryID)-f),8,"0")  ;Адрес строки
       
        Debug HexStr1$
        Debug  PeekS(i-f,f)
       
      EndIf  
      f=0
    EndIf
  Next
EndProcedure
 
Path.s = "C:\test.bin"
If ReadFile(0, Path.s)
  length = Lof(0)    
  If length > 0
    *MemoryID = AllocateMemory(length)        
    If *MemoryID
      bytes = ReadData(0, *MemoryID, length)      
    EndIf
    CloseFile(0)
  EndIf
EndIf
GetString(*MemoryID,length)
 



Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Разные вопросы [0ffTop]
СообщениеДобавлено: Вс янв 10, 2016 7:32 am 
Не в сети
док
Аватар пользователя

Зарегистрирован: Сб мар 28, 2015 11:06 pm
Сообщений: 147
Откуда: Україна
Благодарил (а): 10 раз.
Поблагодарили: 10 раз.
Пункты репутации: 4
MrF не, меня интересовал гибкий поиск, а с b >= 32 And b <= 126 это было бы сложно, вообщем что то у самого получилось:
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Procedure Test(byte)
  stribg.s = " !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}" ; строка будет загружаться с файла настроек
  For i = 1 To Len(stribg)
    If byte =  Asc(Mid(stribg, i, 1))
      ProcedureReturn #True  
    EndIf
  Next i
EndProcedure
 
Procedure GetString(*MemoryID,length)
  Protected b.a
  Protected f.i
  Protected count.i
 
  For i=*MemoryID To *MemoryID+length-1
   
    b= PeekA(i)
    If Test(b)
      f+1    
    Else    
      If f >=4  ;Длинна строки
        HexStr1$ = RSet(Hex((i-*MemoryID)-f),8,"0")  ;Адрес строки
        Debug HexStr1$ + ":" + f + Chr(9) + PeekS(i-f,f)
        count+1
      EndIf  
      f=0
    EndIf
  Next
  Debug "Found:" + count
EndProcedure
 
Path.s = "c:\file.bin"
If ReadFile(0, Path.s)
  length = Lof(0)    
  If length > 0
    *MemoryID = AllocateMemory(length)        
    If *MemoryID
      bytes = ReadData(0, *MemoryID, length)      
    EndIf
    CloseFile(0)
  EndIf
EndIf
GetString(*MemoryID,length)



Цитата:
А ты сможешь в строку бинарный файл загрузить,

ну я только пытаюсь чему то научиться, и поэтому пока использую для этого ReadString(...#PB_File_IgnoreEOL), и потом проверяю длину строки, но перед этим мне приходится разобрать полностью структуру бинарника... вот и подумал набросать брутальный экспорт-импорт текста в бинарниках..


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 442 ]  На страницу Пред.  1 ... 26, 27, 28, 29, 30  След.

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: Google [Bot] и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB