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

    −120

    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
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    Dim msg, sapi
msg=InputBox("Введите ваш текст","Говорилка")

msg = Replace(msg, "\n", " ")

msg = Replace(msg, "а", "a")
msg = Replace(msg, "б", "b")
msg = Replace(msg, "в", "v")
msg = Replace(msg, "г", "g")
msg = Replace(msg, "д", "d")
msg = Replace(msg, "е", "e")
msg = Replace(msg, "ё", "e")
msg = Replace(msg, "ж", "zh")
msg = Replace(msg, "з", "z")
msg = Replace(msg, "и", "i")
msg = Replace(msg, "й", "i")
msg = Replace(msg, "к", "k")
msg = Replace(msg, "л", "l")
msg = Replace(msg, "м", "m")
msg = Replace(msg, "н", "n")
msg = Replace(msg, "о", "o")
msg = Replace(msg, "п", "p")
msg = Replace(msg, "р", "r")
msg = Replace(msg, "с", "s")
msg = Replace(msg, "т", "t")
msg = Replace(msg, "у", "u")
msg = Replace(msg, "ф", "f")
msg = Replace(msg, "х", "kh")
msg = Replace(msg, "ц", "ts")
msg = Replace(msg, "ч", "ch")
msg = Replace(msg, "ш", "sh")
msg = Replace(msg, "щ", "shch")
msg = Replace(msg, "ъ", "")
msg = Replace(msg, "ы", "y")
msg = Replace(msg, "ь", "")
msg = Replace(msg, "э", "e")
msg = Replace(msg, "ю", "iu")
msg = Replace(msg, "я", "ia")

msg = Replace(msg, "А", "a")
msg = Replace(msg, "Б", "b")
msg = Replace(msg, "В", "v")
msg = Replace(msg, "Г", "g")
msg = Replace(msg, "Д", "d")
msg = Replace(msg, "Е", "e")
msg = Replace(msg, "Ё", "e")
msg = Replace(msg, "Ж", "zh")
msg = Replace(msg, "З", "z")
msg = Replace(msg, "И", "i")
msg = Replace(msg, "Й", "i")
msg = Replace(msg, "К", "k")
msg = Replace(msg, "Л", "l")
msg = Replace(msg, "М", "m")
msg = Replace(msg, "Н", "n")
msg = Replace(msg, "О", "o")
msg = Replace(msg, "П", "p")
msg = Replace(msg, "Р", "r")
msg = Replace(msg, "С", "s")
msg = Replace(msg, "Т", "t")
msg = Replace(msg, "У", "u")
msg = Replace(msg, "Ф", "f")
msg = Replace(msg, "Х", "kh")
msg = Replace(msg, "Ц", "ts")
msg = Replace(msg, "Ч", "ch")
msg = Replace(msg, "Ш", "sh")
msg = Replace(msg, "Щ", "shch")
msg = Replace(msg, "Ъ", "")
msg = Replace(msg, "Ы", "y")
msg = Replace(msg, "Ь", "")
msg = Replace(msg, "Э", "e")
msg = Replace(msg, "Ю", "iu")
msg = Replace(msg, "Я", "ia")

Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

    Автор изобрел преобразователь текста в речь, оригинал:

    Программа «Говорилка» на VBS
    Cохраняете как «123.vbs».
    Запускаете.
    Ввводите текст.
    Слышите текст в в своих колонках!

    Запостил: scalar4eblo4no, 29 Июля 2010

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

    • ava 3.14159265 29.07.2010 15:54 # +6

      это пиздец))) - и для больших не поленился )))
      а вообще напоминает о поддержку регэкспов в 1С.
      Ответить

    • ava Denis Popov 29.07.2010 17:13 # 0

      Олололо как оригинально.
      Аналогичного говна всего лишь OVER 1040.
      Ответить

    • ava Анонимус 29.07.2010 17:42 # 0

      афтар читай про комобъект дикшенари
      Ответить

    • ava Lure Of Chaos 29.07.2010 19:37 # 0

      после вижл бейсика всегда очучение что в говне ковырялся. никакой элегантности
      вот так и рождаются такие уродства
      Ответить

      • ava Анонимус 30.07.2010 02:26 # 0

        1) это vbs
        2) это можно переписать на js, правда там нет InputBox, но кажется есть его аналог в WSH, да и можно одну ф-ию написать на vbs:)
        Ответить

        • ava Lure Of Chaos 30.07.2010 19:13 # 0

          скрипт лучше визуального 6.0
          но все же жабаскрипт гибче как язык
          Ответить

          • ava Анонимус 30.07.2010 23:34 # 0

            чем лучше? отсутствием статической типизации?
            Ответить

            • ava Lure Of Chaos 31.07.2010 19:11 # 0

              и этим, и отсутствием идиотских соглашений
              Ответить

            • ava istem 21.08.2010 02:15 # −2

              ага, это VB - исчадие говнокодины (но таки надо ему отдать должное ... :))
              Ответить

      • ava TEEN 05.04.2011 10:46 # 0

        Имхо. Говно было рождено в голове автора, а никак не из-за используемого языка.
        Ответить

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