Как получить информацию из текста в combobox в vb

Question

Это мой первый вопрос здесь, и я не знаю, что сказать, но я попытаюсь объяснить.

Теперь у меня есть текстовый файл, который содержит:

[2000] name : any thing job : doctor age : 50 
[2002] name : anything else job : anything age : 60 
[2003] name : anything else job : anything else age : 55 

Как я могу получить все, что внутри этого [] в выпадающем списке, так что элементы ComboBox должно быть 2000, 2002, 2003? Btw, у моего текстового файла есть лот из строк, поэтому я не могу сделать это с линиями.

Мой второй вопрос, если у меня есть номера в выпадающий список, например

64080 
65090 
62055 

Какой код можно удалить последний номер из каждого пункта в выпадающем списке, чтобы быть:

6408 
6509 
6205 

Спасибо!

Answer 1

Я надеюсь, что этот модуль дает хорошую отправную точку:

Imports System.IO.File 
Module NumModule 

    Function GetNumbers(ByVal PathString As String) As Integer() 

     Dim Line As String 
     Dim IntTable() As Integer 
     'Determines line count 
     Dim LineCount = System.IO.File.ReadAllLines(PathString).Length - 1 
     ReDim IntTable(LineCount) 
     'Initiating counter 
     Dim Counter As Integer = 0 
     'Copying numbers into Intable 
     Dim stream As New IO.StreamReader(PathString) 
     For Counter = 0 To LineCount 
      Line = stream.ReadLine 
      Dim PosS As Integer 
      Dim PosE As Integer 
      PosE = Line.IndexOf("]") - 1 
      PosS = Line.IndexOf("[") + 1 
      Dim Number As Integer 
      Number = CInt(Line.Substring(PosS, PosE)) 
      IntTable(Counter) = Number 
     Next Counter 
     stream.Close() 
     GetNumbers = IntTable 
    End Function 
End Module 

Позже, добавить выпадающий в форму (мы будем называть его Form1) и дважды щелкните на нем, чтобы добраться до Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load.

Оттуда вы можете добавить свои номера в свой список, используя цикл For, который начинается с 0 и заканчивается Ubound(NumModule.GetNumbers(StringPath:="YourStringPathHere",1). как следовать:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

     Dim counter As Integer = UBound(NumModule.GetNumbers(PathString:="D:\Test.txt"), 1) 
     For i As Integer = 0 To counter 

      ComboBox1.Items.Add(NumModule.GetNumbers(PathString:="D:\Test.txt")(i).ToString) 

     Next 
    End Sub 

Чтобы ответить на ваш второй вопрос, заменить содержание Form1_load «s следующим:

Dim counter As Integer = UBound(NumModule.GetNumbers(PathString:="D:\Test.txt"), 1) 
    For i As Integer = 0 To counter 
     Dim TrimmedString As String = NumModule.GetNumbers(PathString:="D:\Test.txt")(i).ToString 
     If Len(TrimmedString) = 5 Then 
      TrimmedString = TrimmedString.Remove(TrimmedString.Length - 1) 
     End If 
     ComboBox1.Items.Add(TrimmedString) 

    Next 

Мой конечный результат: