текст из данных

[Fast0490f]

всем!! привет!!!)))
помогите кто знает....
имею такой блок в текстовом файле который повторяется от 1000 и более (файлы весом от 4-до10 мб), каждый блок это объект с параметрами
[Data]
name=
sector=
set=
[END]


как считать все параметры и чтоб сильно не тормозил метод считывания


пробовал ini метод, читает только первый блок и все, на этом конец

[Viper]

пробовал ini метод, читает только первый блок и все, на этом конец

Ну и как же ты пробовал?

[Joo]

Юзай XML! В .NET все для этого есть, будет выглядеть так:
...
<DATA name= sector= set=/>
...

[iGrok]

пробовал ini метод, читает только первый блок и все, на этом конец

Ну и как же ты пробовал?

А у него имена секций по всему файлу повторяются [Data] [END]. Не будет он как ini обычными ф-циями читаться..

[MIT]

Я так понял, что автор имеет файл для обработки, а не создает его.
Автору: поищи по форуму, тут совсем недавно обсуждалась работа с INI

[Joo]

Ежели автор имеет файл, а не создает его, то в помощь регулярные выражения:

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

Imports System.Text.RegularExpressions
...
Try
   Dim RegexObj As New Regex("^\[Data\].*?name=(.*?)\r\nsector=(.*?)\r\nset=(.*?)\r\n\[END\]$", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline)
   Dim MatchResults As Match = RegexObj.Match(Source)
   While MatchResults.Success
      Dim i As Integer
      For i = 1 To MatchResults.Groups.Count
         Dim GroupObj As Group = MatchResults.Groups(i)
         If GroupObj.Success Then
            ' matched text: GroupObj.Value
            ' match start: GroupObj.Index
            ' match length: GroupObj.Length
         End If
      Next
      MatchResults = MatchResults.NextMatch()
   End While
Catch ex As ArgumentException
End Try


[Fast0490f]

Ежели автор имеет файл, а не создает его, то в помощь регулярные выражения:

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

Imports System.Text.RegularExpressions
...
Try
   Dim RegexObj As New Regex("^\[Data\].*?name=(.*?)\r\nsector=(.*?)\r\nset=(.*?)\r\n\[END\]$", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline)
   Dim MatchResults As Match = RegexObj.Match(Source)
   While MatchResults.Success
      Dim i As Integer
      For i = 1 To MatchResults.Groups.Count
         Dim GroupObj As Group = MatchResults.Groups(i)
         If GroupObj.Success Then
            ' matched text: GroupObj.Value
            ' match start: GroupObj.Index
            ' match length: GroupObj.Length
         End If
      Next
      MatchResults = MatchResults.NextMatch()
   End While
Catch ex As ArgumentException
End Try


файл такой...сам его я не создаю..(

вставил код пишет Error 1 Name 'Source' is not declared.

[Joo]

файл такой...сам его я не создаю..(
вставил код пишет Error 1 Name 'Source' is not declared.

Объяви переменную Source и запхай туда содержимое файла

[Joo]

Вот пример полностью:

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

Imports System.Text.RegularExpressions

Module TestModule
    Dim Data(-1) As SData

    Sub Main()
        Console.Write("Введите путь к файлу: ")
        Try
            Dim Source As String = IO.File.ReadAllText(Console.ReadLine, System.Text.Encoding.ASCII)

            Dim RegexObj As New Regex("^\s*?\[Data\].*?name=(.*?)\s*sector=(.*?)\s*set=(.*?)\s*\[END\]\s*?$", RegexOptions.Singleline Or RegexOptions.IgnoreCase Or RegexOptions.Multiline)
            Dim MatchResults As Match = RegexObj.Match(Source)
            While MatchResults.Success
                ReDim Preserve Data(Data.Length)
                Data(Data.Length - 1).Name = MatchResults.Groups(1).Value
                Data(Data.Length - 1).Sector = MatchResults.Groups(2).Value
                Data(Data.Length - 1).Set = MatchResults.Groups(3).Value
                MatchResults = MatchResults.NextMatch()
            End While
            Console.WriteLine("Найденных блоков {0}", Data.Length)
        Catch ex As ArgumentException
        End Try
        Console.ReadKey()
    End Sub

    Public Structure SData
        Public Name As String
        Public Sector As String
        Public [Set] As String
    End Structure
End Module