Template for tool which processes line based text from clipboard

[Petr Schreiber]

From time to time,

I use this template as a base for work which modifies text in my clipboard, maybe somebody will find it useful.

Just unzip the attachement to your thinAir/Template directory.



Dim sInput As String = ClipBoard_GetText
Dim sOutput As String

Dim lines() As String
Dim nLines As Long = Parse(sInput, lines, $CRLF)

' -- Auxiliary variable for enhanced line handling
Dim oneLine As String
Dim lineToken() As String
Dim lineTokenCount As Long

' -- Auxiliary variable to log any problems
Dim problemLog As String

Dim i As Long

For i = 1 To nLines
oneLine = lines(i)
'lineTokenCount = parse(oneLine, lineToken, " ")


Next

If Len(problemLog) Then
MsgBox (0, problemLog, %MB_OK Or %MB_ICONINFORMATION, "Problems found")
Else
sOutput = Join$(lines, $CRLF)
ClipBoard_SetText(sOutput)
End If


Petr