vb6.0 text里的数字怎么拆分在其他text
发布网友
发布时间：2024-12-16 23:14
共1个回答
热心网友
时间：13小时前
这个比较简单。以=号为标志进行分割，取后面的数字即可。下面提供一段示例：
新建一个窗体，添加一个文本框控件Text1，将Text1的MultiLine属性设置为True。然后将以下代码粘贴到代码区即可。但文件目录要更换成你的文本文件所在的目录和文件名。
Option Explicit'请将Text1的MultiLine属性设置为TruePrivate Sub Form_Load()Dim TLine As StringDim I As LongText1.Text = ""Open "d:\文本文档.txt" For Input As #1Do While Not EOF(1) Line Input #1, TLine '读一行文本文件里的数据 I = InStr(1, TLine, "=") '找=号位置 TLine = Trim(Mid(TLine, I + 1)) '取等号后面的字符，并将前面空格去掉 Text1.Text = Text1.Text & TLine & vbCrLfLoopClose #1 End Sub
