如何将剪贴板所获取的文本转成二维数组
--------------------编程问答--------------------
请高手不吝赐教.谢谢
--------------------编程问答--------------------
请高手们不吝赐教
--------------------编程问答--------------------
文本是线性的,比如一个句子。你想转成二维数组?
--------------------编程问答--------------------
另外,一个建议,定义一个字符串变量保存Clipboard.GetText的值。不要总是去读取剪贴板、因为剪贴板可能会被改变。
--------------------编程问答--------------------
Private Sub Form_Load()
Dim Str As String
Str = "a" & Chr(9) & "a2" & Chr(13)
Str = Str & "b" & Chr(9) & "b2"
'假设clipboard.gettext就是str
Dim Sz3
Sz3 = StrTo2wSz(Str, Chr(13), Chr(9))
MsgBox Sz3(1, 0)
MsgBox Sz3(0, 1)
End Sub
'┏〓〓〓〓〓〓〓〓〓 StrTo2wSz,start 〓〓〓〓〓〓〓〓〓┓
'[详介]:
'RowFg,行分隔;ColFg:列分隔
'[简介]:
'字符串转换为二维数组
Function StrTo2wSz(Str As String, RowFg As String, ColFg As String)
'VB源码,帮你写函数,帮你写代码,帮你写模块,帮你设计软件
'--需要什么函数或功能,可以联系我。
'版权所有,请保留作者信息.QQ:2605961812
'如需商业用途请联系作者
Dim Sz, Sz2, UB As Long, UB2 As Long
Sz = Split(Str, RowFg)
Sz2 = Split(Sz(0), ColFg)
UB = UBound(Sz)
UB2 = UBound(Sz2)
Dim Sz3
ReDim Sz3(UB, UB2)
Dim I As Long, II As Long
For I = 0 To UB
Sz2 = Split(Sz(I), ColFg)
For II = 0 To UB2
Sz3(I, II) = Sz2(II)
Next
Next
StrTo2wSz = Sz3
End Function
'┗〓〓〓〓〓〓〓〓〓 StrTo2wSz,end 〓〓〓〓〓〓〓〓〓┛
--------------------编程问答--------------------
多谢高手指点.
补充:VB , 基础类