Необходимо правильно разделить строку, используя список со списком и текстовое поле в VBA - PullRequest
Новая
       3

Необходимо правильно разделить строку, используя список со списком и текстовое поле в VBA

0 голосов
/ 11 февраля 2019

У меня есть небольшой VBA-скрипт для импорта в Word 2013 текстового файла, содержащего прайс-лист.Любая строка в текстовом файле составляется в этом режиме:

описание элемента | цена («|» - разделитель)

Разделение strText (строка в текстовом файле)я получаю dscText (описание элемента) и prcText (цена).

Используя "Me.ComboBox1.AddItem dscText", я получаю список описания элемента в поле со списком, но в текстовом поле тоже самое. 

Private Sub Document_Open()
    Dim fffNmbr As Integer
    Dim strText As String
    fffNmbr = FreeFile
    Open "C:\path\pricelist.txt" For Input As #fffNmbr
    Me.ComboBox1.Clear
    Do While Not EOF(fffNmbr)
        Line Input #fffNmbr, strText
        dscText = Split(strText, "|")(0)
        prcText = Split(strText, "|")(1)
        Me.ComboBox1.AddItem dscText
    Loop
    Close #fffNmbr
End Sub
Private Sub ComboBox1_Change()
    Me.TextBox1.Text = Me.ComboBox1
End Sub

Мне нужно получить список предметов в выпадающем списке (как сейчас) и относительную цену в текстовом поле, когда я выбираю предмет.Я перепробовал много попыток, но без желаемого результата.Пожалуйста, у вас есть какие-либо предложения для меня?

Спасибо заранее.

...