Загрузка в ComboBox частей строк из файла. Вывод другой части строки в зависимости от выбора - VB

Формулировка задачи:

Доброе время суток! Прошу помощи. Сам не в состоянии справиться. Есть текстовый файл с информацией типа: ХХХ1: YYY1; ZZZ = 123; ХХХ2: YYY2; ZZZ = 321; ХХХ3: YYY3; ZZZ = 132; ХХХ4: YYY4; ZZZ = 231; и т.д. Задача следующая: Хочется чтобы в комбобокс тянулся список ХХХ*. И при выборе например ХХХ3, TextBox отображал данные ZZZ соответствующей строки, но только цифры. Спасибо!

Решение задачи: «Загрузка в ComboBox частей строк из файла. Вывод другой части строки в зависимости от выбора»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim Col As New Collection
 
Private Sub Combo1_Click()
  Dim Tmps As String
  Tmps = Split(Col(Combo1.ListIndex + 1), "=")(1)
  Tmps = Replace(Tmps, " ", "")
  Tmps = Replace(Tmps, ";", "")
  MsgBox Tmps
End Sub
 
Private Sub Command1_Click()
  Dim Tmp As String
  Open "C:\1.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, Tmp
    Col.Add (Tmp)
    Combo1.AddItem Split(Tmp, ":")(0)
  Loop
End Sub

Оцени полезность:

14 голосов , оценка 3.714 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы