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

    −166

    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
    Public Sub DBOpen(Optional sFullPath As String = "")
    If sFullPath = "" Then sFullPath = sPath
    Dim f As Integer
    Dim l As Integer
    Dim tmp As String
    Dim sName As String
    Dim sSurname As String
    Dim sSex As String
    Dim dBirthdate As Date
    Dim sCity As String
    Dim sStreet As String
    l = 0
    f = FreeFile
    Open sFullPath For Input As #f
        While Not EOF(f)
            Line Input #f, tmp
            l = l + 1
        Wend
    Close #f
    If l > 0 Then
        ReDim asDB(0 To l - 1) As clsCitizen
        l = 0
        f = FreeFile
        Open sFullPath For Input As #f
            While Not EOF(f)
                Input #f, sName, sSurname, sSex, dBirthdate, sCity, sStreet
                Set asDB(l) = New clsCitizen
                asDB(l).sName = sName
                asDB(l).sSurname = sSurname
                asDB(l).sSex = sSex
                asDB(l).dBirthdate = dBirthdate
                asDB(l).sCity = sCity
                asDB(l).sStreet = sStreet
                l = l + 1
            Wend
        Close #f
    End If
    sPath = sFullPath
End Sub

    за что я ненавижу VB6

    а ведь по-другому никак = (

    Запостил: Lure Of Chaos, 10 Января 2011

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

    • ava RaZeR 10.01.2011 16:29 # +1

      Создание и заполнение базы данных чтоли?
      Ответить

      • ava Lure Of Chaos 10.01.2011 16:31 # −1

        если базой данных можно назвать структурированный в стиле VB6 текстовый файл, вида
        "a","","",#2010-12-01#,"",""
"a","","",#1899-12-30#,"",""
        Ответить

    • ava TarasB 10.01.2011 16:31 # 0

      Чего, нет структур?
      Ответить

      • ava RaZeR 10.01.2011 16:33 # +2

        Структур нет, зато есть массив! :)
        P.S: Слава Богу, что мне пришлось сталкиваться с базами данных ПОСЛЕ того, как я слез с VB6.
        Ответить

        • ava 3.14159265 10.01.2011 18:25 # +2

          как это нет структур? а это что?
          Type ..
          .. As String
          .. As Byte
          ....
          End Type

          >но все равно, напрямую в поля, скотина, отказывается читать
          хм. сколько лет знаком - никогда не сталкивался.
          надо будет проверить.

          алсо устаревшее говно
          While Not EOF(f)
          Wend

          надо
          Do Until EOF(f)
          Loop
          Ответить

      • ava Lure Of Chaos 10.01.2011 16:34 # −1

        я пытался их делать, через классы (clsCitizen), но все равно, напрямую в поля, скотина, отказывается читать - поэтому приходится заводить временные локальные переменные
        Ответить

        • ava TarasB 10.01.2011 16:48 # +1

          Во, блин, бред-то какой...
          Ответить

        • ava 3.14159265 10.01.2011 18:36 # +2

          сделай через Type - все должно работать. инфа 95%
          edit:
          вот пруф
          http://www.dreamincode.net/forums/topic/29575-file-handling-in-visual-basic-6-part-1-sequential-files/
          VI. SEQUENTIAL FILE HANDLING EXAMPLES
          Ответить

      • ava SemaReal 25.02.2018 15:41 # 0

        никакая структура данных кроме массива не нужна(с) Тсарь
        Ответить

    • ava Dummy00001 11.01.2011 00:00 # 0

      а почему не ReDim уже в первом цикле где считаешь? так за раз данные бы и прочитал.
      Ответить

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