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

Question

本帖最后由 bcrun 于 2012-08-31 20:44:01 编辑

Answer 1

另外，一个建议，定义一个字符串变量保存Clipboard.GetText的值。不要总是去读取剪贴板、因为剪贴板可能会被改变。

Answer 2

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  〓〓〓〓〓〓〓〓〓┛