UC知道请问用VB如何实现这些
来源：百度知道 编辑：UC知道 时间：2024/05/24 06:25:22
有一行带逗号文本
将每两个逗号间（包括两边）的内容放到指定的文本框中。
举个例子：
有一行带逗号文本：4656,fd444,34f7s7,g7tyre54
分别将"4656" "fd444" "34f7s7" "g7tyre54"
放到Text1、Text2、Text3、Text4中，如何实现？
将每两个逗号间（包括两边）的内容放到指定的文本框中。
举个例子：
有一行带逗号文本：4656,fd444,34f7s7,g7tyre54
分别将"4656" "fd444" "34f7s7" "g7tyre54"
放到Text1、Text2、Text3、Text4中，如何实现？
Split函数用法:
Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])
Member of VBA.Strings
Split a string into an array
就是把一个字符串,以Delimiter为分隔符分割成数组.
调用示例:
Dim arr As Variant
arr=Split("a b c d"," ")
那么arr(0)="a"
arr(1)="b"
等等
具体就看你怎么做
假设这个文本文件的名字为“1.txt”，路径为“C:\1.txt”
那么这样写就行了：
open "c:\1.txt" for input as #1
dim inStr as string
input #1,inStr
text1.text=instr
input #1,inStr
text2.text=instr
input #1,inStr
text3.text=instr
input #1,inStr
text4.text=instr
很简单吧。
注：各数据之间不用逗号，用空格也是一样的