VB编程如何将TextBox里的内容拆分并写入指定的其它TextBox中？

显示全部楼层 · 2011-10-15 08:35:44

如图，点击“拆分录入”按钮，即将Text1里面的内容逐句写入左边的文本框中。

千问 · 2011-10-15 08:35:44

PrivateConstEM_GETLINE=0Then
ReDimbArr(length1)AsByte,bArr2(length-1)AsByte
CallRtlMoveMemory(bArr(0),length,2)
CallSendMessage(hWnd,EM_GETLINE,whichLine,bArr(0))
CallRtlMoveMemory(bArr2(0),bArr(0),length)
Line=StrConv(bArr2,vbUnicode)
Else
Line=\"\"
EndIf

EndSub
如上的函数可以读出文本框中每行的值，调用方法如下，其中0为第一行
CallTB_GetLine(Text1.hWnd,0,S)
Text2.Text=S

接下来你自己知道怎么做了吧。

千问 · 2011-10-15 08:35:44

描述返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。语法Replace(expression,find,replacewith[,

千问 · 2011-10-15 08:35:44

研究了下给个思路
搜索到回车符，然后用数组分段做法参照下面
a=text1.text
dimb
b=split(a,vbcrlf)
可以将a分成以回车符分隔的一个数组。vbcrlf是回车符的常量。然后你就可以用b(0)来引用第一个回车符前的字串。

分段，以指定字符为分隔符，分离出若干个子字符串，并保存在一个下标从0开始的一维数组中，其格式为：split(字符串，分隔符）
dima=\"1,2,3,4,5,6,45,656465,564,45\"
dimb()asinteger
b=split(a,\",\")
那么b(0)=1
b(1)=2
b(i)=

千问 · 2011-10-15 08:35:44

PrivateSubCommand1_Click()
s=Split(Text1,vbCrLf)\'分拆元素
Fori=0ToUBound(s)-1\'因为最后一行是空行，所以元素个素减一
Controls(\"text\"defds123i2).Text=s(i)\'text与元素相差2（自己都说不明白，呵呵，反正是这个意思）
Nexti
EndSub