Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
Clipboard to Array
Author:
Michael Bolanos
Submitted:
6/1/2011
Version:
VB 2010
Compatibility:
VB 2005, VB 2008, VB 2010
Category:
Miscellaneous
Views:
7841
Split the clipboard data to a ArrayList.
Declarations:
'none
Code:
Public Function TEST(ByVal pText As String) As String Try Dim vText As String = pText Dim vArray As New ArrayList vArray.AddRange(vText.Split(vbNewLine)) Dim vActualIndex As Integer = 0 Dim vMaxColumns As Integer = 0 For Each vArrayItem In vArray If vArrayItem.Split(vbTab).Length > vMaxColumns Then vMaxColumns = vArrayItem.Split(vbTab).Length End If Next Dim vActualArray(vMaxColumns - 1) As String vArray = New ArrayList vArray.AddRange(vText.Split(vbTab)) Dim vLen As Integer = vArray.Count Dim vNewArray As New ArrayList vActualIndex = 0 Do While vArray.Count <> 0 If vArray(0).Split(vbNewLine).Length = 1 Then vActualArray(vActualIndex) = vArray(0) vActualIndex += 1 Else If vArray(0).Split(vbNewLine) (0).ToString.StartsWith("""") Then vArray(0) = Mid(vArray(0), 2).Replace("""""", "*_IDIDIDUNIQUEID_*") If InStr(vArray(0), """" & vbNewLine) <> 0 Then vActualArray(vActualIndex) = Mid(vArray(0), 1, InStr(vArray(0), """" & vbNewLine) + 1) vArray(0) = Mid(vArray(0), InStr(vArray(0), """" & vbNewLine) + 3) vActualArray(vActualIndex) = vActualArray(vActualIndex).ToString.Replace("*_IDIDIDUNIQU EID_*", """""") vArray(0) = vArray(0).ToString.Replace("*_IDIDIDUNIQUEID_*", """""") vActualIndex += 1 GoTo Skip_remove End If vArray(0) = vArray(0).ToString.Replace("*_IDIDIDUNIQUEID_*", """""") vActualArray(vActualIndex) = vArray(0) vActualIndex += 1 Else vActualArray(vActualIndex) = vArray(0).Split(vbNewLine)(0) vActualIndex += 1 vArray(0) = vArray(0).ToString.Substring(vArray(0).Split(vbNewLine) (0).ToString.Length + 2) GoTo Skip_remove End If End If vArray.RemoveAt(0) Skip_remove: If vActualIndex >= vMaxColumns Then vNewArray.Add(vActualArray) ReDim vActualArray(vMaxColumns - 1) vActualIndex = 0 End If Loop Catch ex As Exception Return "" End Try End Function
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement