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

    −99

    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
    25. 25
    26. 26
    'Поиск с использованием Mid()
    '-------
    Dim B
    'переменная Б - номер символа
    Dim foundn
    ' номер найденной строки
    Dim A As String
    'A - текст в котором ищем
    Dim find As String
    '--------
    A="this is text ! ololo 12345 abcd"
    Call found("ololo",1)
     
    Function found(Text As String, start)
    B = start
    find = Text
    Do While Not (Mid(A, B, Len(find)) = find)
    B = B + 1
    If B > 1000000 Then
    MsgBox ("overfloow")
    'если номер символа > 10000000 - остановка процесса
    End
    End If
    Loop
    foundn = B
    End Function

    Поиск в string

    Запостил: hromjo, 17 Мая 2010

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

    • Это школокод, не интересно. Но "Call" умилил.
      Ответить
      • а по-мойму нормал, особенно это
        If B > 1000000 Then
        MsgBox ("overfloow") 'moooo
        'если номер символа > 10000000 - остановка процесса
        End
        End If
        Ответить
    • показать все, что скрытоНормально , не такой ужо и говнокод
      Ответить
    • "overfloow" - поколение Google :)
      Ответить
      • А ты типа весь такой взрослый!
        Ответить
        • Угу, я на Б3-21 говнокодить учился :)
          http://ru.wikipedia.org/wiki/%D0%AD%D0%BB%D0%B5%D0%BA%D1%82%D1%80%D0% BE%D0%BD%D0%B8%D0%BA%D0%B0_%D0%913-21
          Ответить
    • это ж шо? instr со своим кавайным месаджем?
      Ответить

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