Загрузка в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д