Чтение данных из файла и их обработка

[--DeL--]

Возник вопрос по чтению данных из файла...
В файле данные в таком формате
1:1:0:0:20993:Ukrainian:32729:31749;1:1:0:0:2243:Zim:32807:31848;1:1:0:0:5546:Nikkiya:32774:31819;1:0:0:0:8648:SC1:32829:31826;
определяем по порядку числа. (до каждого двоеточия, конец строки;)
1 - изучена система или нет.
2 - есть маяк или нет.
3 - упускаем
4 - упускаем
5 - Номер звезды
6 - Имя планеты
7 и 8 координаты x и у.
От пункта 1 и 2 зависит какая картинка будет выводиться. Номер звезды должен выводиться под рисунком. Выводить данные буду через Bitblt (с ней проблем нет.....)
Подобных данных в файле может быть и 10000.
Собственно вопрос - как правильно считать информацию из данного файла и как дальше работать с переменными. Так как в дальнейшем просто будет обработка того, что юзер нажимает на рисунке и у него открывается характеристики планеты.
Словом несовсем пойму как лучше сделать......
Помогите плиз. Если можно с примером.
Думал сделать с использованием массивов и резки файлов (Split), но по моему тормоза будут ужасные.

[Cytron]

неммм не совсем понял вопроса.
если поможет то
replace (strStroka,":",vbcrlf)
на а дальше в файл и из него читать for input.
ну это легче всего

[tyomitch]

Думал сделать с использованием массивов и резки файлов (Split), но по моему тормоза будут ужасные.

Не обязательно.
Если один раз прочитать весь файл в строку, и потом один раз посплитить, то тормозам будет неоткуда взяться.

[uhm]

А по-моему проще всего именно вариант, когда сначала считываешь весь файл, а потом используешь Split.

[Antonariy]

Сгенерируй 10000 записей да проверь. Если скорость не устроит и если текстовый формат хранения не критичен, то можно хранить в бинарном виде.
Сделать тип:

Код: Выделить всё

Cost MaxLength = 50 'к примеру

Type Planet
    State as Byte 'PlanetStateEnum
    Reserved1 as Long
    Reserved2 as Long
    Number as Long
    Name as String * MaxLength
    x as Long
    y as Long
End Type

Enum as PlanetStateEnum
    psNone = 0
    psExplored = 1
    psHasBeacon = 2
    psBoth = 4
End Enum

Dim Planets() As Planet


и загружать все уже готовенькое в массив четко определенного типа.

[Grover]

К примеру есть строка
Stroka="Pupkin;Vasik;Petic;Marfa;"

Нам нуже элемент номер 3 из этой строки (знак ';' - разделитель элементов).

Msgbox GetFromStrNum(Stroka, 3)

Вот эта функция :

Код: Выделить всё

Function GetFromStrNum(s As String, n As Integer) As String
Dim pos As Integer
    pos = 0
    GetFromStrNum = ""
    For i = 1 To Len(s)
        If Mid(s, i, 1) = ";" Then
            pos = pos + 1
            If pos = n Then
                Exit Function
            Else
                GetFromStrNum = ""
            End If
        Else
            GetFromStrNum = GetFromStrNum + Mid(s, i, 1)
        End If
    Next i
End Function


[dr.MIG]

Grover, это лишнее. Приведённый код эквивалентен коду с использованием Split, только длиннее в семь раз и выполняться по-идее должен медленнее. Так что наверное лучшим выходом здесь будет решение, которое предложил Antonariy.

[GSerg]

Grover, код отвратителен, во-первых, и во-вторых, ты обратил внимание на функцию Split, которую несколько раз упомянули до тебя?

[Grover]

Простите.

Чем пользуюсь, то и советую.

Надо почитать про Split...

[Grover]

Искал про Split и вот нашел про его скорость :

"...
Почему это происходит, понятно — сами функции Split, Filter и Join работают достаточно быстро, но постоянное создание динамических массивов требует довольно много времени. Так что, если скорость обработки действительно важна (например, при работе с большими объемами данных), то может быть имеет смысл потратить лишних 10 минут, чтобы написать не 4, а 16 строк программного кода.
..."

Источник :
http://www.microsoft.com/Rus/Msdn/Activ ... bles2.mspx

Это я для информации...

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=6658698#6658698

[--DeL--]

ОК, спасибо большое, буду пробовать.

[Andrey Fedorov]

Это я для информации...

А сам пробовал - на своем конкретном примере - минутное дело пару строчек набрать.

Да, еще как вариант - подобный текст можно попробовать загрузить сразу в Recordset. Когда-то я давал пример...