当前位置:编程学习 > VB >>

如何将剪贴板所获取的文本转成二维数组

--------------------编程问答-------------------- 请高手不吝赐教.谢谢 --------------------编程问答-------------------- 请高手们不吝赐教 --------------------编程问答-------------------- 文本是线性的,比如一个句子。你想转成二维数组? --------------------编程问答-------------------- 另外,一个建议,定义一个字符串变量保存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 ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,