1. VisualBasic / Говнокод #13936

    −128

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    Procedure.i Poisk2()
Protected i.s=GetGadgetText(906)
Protected f.i=Len(i)
Protected p.i
Protected l.i=0
;Protected j.i
Protected k.i=0
If i=""
MessageRequester("Поиск","Ввидите строку для поиска",#MB_ICONASTERISK) 
Else 
p =Len(GetGadgetText(11))+1
*mem = AllocateMemory(p)
PokeS(*mem,GetGadgetText(11))
For j=*mem To *mem+p-f
 k+1
 If PeekS(j,f)=i
  k-l-1
 SendMessage_(GadgetID(11),#EM_SETSEL,k+f,k):FreeMemory(*mem):ProcedureReturn:EndIf   
 If PeekS(j,2)=Chr(13)+Chr(10):l+1:EndIf
Next
MessageRequester("Поиск","Не удаётся найти"+": "+i+"" ,#MB_ICONASTERISK)
FreeMemory(*mem)
EndIf
EndProcedure

    Этот парень меня реально возбуждает. Интересно, какие еще скелеты он прячет в своем туалете?
    взято с http://purebasic.info/phpBB3ex/viewtopic.php?f=1&t=3494&start=15

    Запостил: Stertor, 13 Октября 2013

    Комментарии (20) RSS

    • ava tirinox 15.10.2013 00:27 # +1 

      *mem = AllocateMemory(p)

      Эт что, в базике указатели появились?
      Ответить

    • ava someone 15.10.2013 09:17 # 0

      Что такое * и #? Никогда раньше с этим в VB не сталкивалась.
      Ответить

      • ava guest 15.10.2013 09:31 # −3

        Тёлка! Или зеленый?
        Ответить

      • ava kegdan 15.10.2013 10:51 # +1

        * - знак умножения, а # - шарп
        Ответить

      • ava Stertor 15.10.2013 11:46 # 0

        Это PureBasic.
        # - признак константы,например:
        булевые типы:
        #true
        #false

        и константы:
        #wm_close
        #wm_move, и т.д

        * - символ указателя. Нет в нем особой необходимости, кроме как при работе с LinkedList.
        Просто, чтобы было видно, что это указатель на память.
        Ответить

        • ava Kozel 15.10.2013 21:33 # 0

          Кстати, в самом современном PureBasic'е указатели - это всё так же обычные целочисленные переменные, как и в v3.51? Тб работа с указателями на стандартные типы всё так же через жопу, или это исправили?
          Ответить

          • ava Stertor 16.10.2013 10:32 # 0

            Через жопу, разумеется. Указатели/булевые типы приравнены к integer.
            Ответить

      • ava Stertor 15.10.2013 11:54 # 0

        ..
        Ответить

      • ava anonimb84a2f6fd141 16.10.2013 00:34 # 0

        Сиськи на аватаре? Нет пути! Сиськи или съебала!
        Ответить

    Добавить комментарий