1. Куча / Говнокод #13044

    +130

    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
    Class barcode
	...
	Dim CharData

	Dim CharNumber

	Public Function GetHTMLBar(BarData  ,  BarHeight  )
		...
		For lop = 1 To Len(x)
			For s = 0 To UBound(CharData)
					...
					tsum = tsum + (CLng(CharNumber(s)) * lop)
					...
				End If
			Next 
		Next 
	End Function

	Private Sub Class_Initialize()
		CharNumber = Split("0,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,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106", ",")
		...
	End Sub
End class

    VBScript.
    Массив, содержащий собственные индексы?

    Запостил: slbsomeone, 24 Мая 2013

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

    • ava Lure Of Chaos 26.05.2013 18:28 # 0

      всего 106 элементов? маловато будет
      Ответить

      • ava vistefan 28.05.2013 16:26 # 0

        Кто-нибудь вкурил, что за magic number?
        Ответить

        • ava inkanus-gray 28.05.2013 20:38 # +1

          Штриховой код Code 128 включает в себя 107 символов.
          Ответить

        • ava bormand 28.05.2013 20:50 # +1

          http://ru.wikipedia.org/wiki/107_%28%D1%87%D0%B8%D1%81%D0%BB%D0%BE%29

          Самое замечательное в нем все-таки то, что оно находится между 106 и 108.
          Ответить

      • ava inkanus-gray 28.05.2013 20:52 # +1

        Нулевой элемент обиделся.
        Ответить

    • ava krypt 28.05.2013 20:18 # +2

      Массив, содержащий собственные индексы бывает нужен при перемешивании массива в рандомном порядке. Но заполнять его вручную - явно перебор )
      Ответить

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