excel - 使用来自文本框的输入更改文本文件中的数据

Question

如何更改列表框的代码以在文本框中使用它？

Private  Sub TextFile_FindReplace()

Dim y, i As Long, ii As Long

If Me.ListBox1.ListIndex = -1 Then Exit Sub
y = Split(x(Me.ListBox1.ListIndex), "|")

For i = 0 To Me.ListBox1.ColumnCount - 1
    If Me("textbox" & i + 1) <> "" Then y(i) = Me("textbox" & i + 1)
Next

x(Me.ListBox1.ListIndex) = Join(y, "|")
Open ThisWorkbook.Path & "\REGISTER\users.txt" For Output As #1
    Print #1, Join(x, vbNewLine);
Close #1
UserForm_Initialize

End sub

我需要将此代码用于文本框，因为它正在列表框中使用。

我打算用它来更改 txt 文件中的数据。

例如，在我的 txt 文件中：

Line1 - 1|JHON|123
Line2 - 2|MARIE|555
Line3 - 3|JOSH|756

当我找到数字 2 时，我想通过 textbox1 值更改整行。

标签： excelvba