Working with clipboard

[Joshua Campbell]

I am working on an application that needs to parse out data that has been
copied into the clipboard. My first questions are how can I detect if the
clipboard is empty, and how can I empty the clipboard? I tried the code
below, but it didn't seem to tell me if the clipboard was empty.
If Clipboard.GetDa taObject() Is Nothing Then
MessageBox.Show ("Clipboard is empty")
Else
Dim txtdata As IDataObject = Clipboard.GetDa taObject()
If (txtdata.GetDat aPresent(DataFo rmats.Text)) Then
MessageBox.Show (txtdata.GetDat a(DataFormats.T ext))
End If
End If

Also, the data that is being copied is basically a 8000 line document
containing data plots from an instrument in our labs. I need to grab
certain data from the third line. Any suggestions on how to do this?

Thanks.
Joshua

[Armin Zingler]

"Joshua Campbell" <Jo************ *@WellmanInc-DieSpamDie.com>
schrieb

I am working on an application that needs to parse out data that has
been copied into the clipboard. My first questions are how can I
detect if the clipboard is empty,
dim do as Dataobject
do = Clipboard.GetDa taObject
if do.getformats.l ength = 0
MessageBox.Show ("Clipboard is empty")
else
'...
end if

and how can I empty the clipboard?
Clipboard.SetDa taObject(New DataObject)
I tried the code below, but it didn't seem to tell me if the
clipboard was empty.
If Clipboard.GetDa taObject() Is Nothing Then
MessageBox.Show ("Clipboard is empty")
Else
Dim txtdata As IDataObject = Clipboard.GetDa taObject()
If (txtdata.GetDat aPresent(DataFo rmats.Text)) Then
MessageBox.Show (txtdata.GetDat a(DataFormats.T ext))
End If
End If

Also, the data that is being copied is basically a 8000 line
document containing data plots from an instrument in our labs. I
need to grab certain data from the third line. Any suggestions on
how to do this?

Dim txtdata As IDataObject = Clipboard.GetDa taObject()
If txtdata.GetData Present(DataFor mats.Text) Then
Dim s As String
Dim lines As String()
s = DirectCast(txtd ata.GetData(Dat aFormats.Text), String)
lines = Strings.Split(s , vbCrLf)
MsgBox(lines(2) )
End If
--
Armin

[Joshua Campbell]

Wow...thanks a lot!

One more question: how would I save the contents to a text file?


"Armin Zingler" <az*******@free net.de> wrote in message
news:er******** ******@TK2MSFTN GP12.phx.gbl...

"Joshua Campbell" <Jo************ *@WellmanInc-DieSpamDie.com>
schrieb

I am working on an application that needs to parse out data that has
been copied into the clipboard. My first questions are how can I
detect if the clipboard is empty,

dim do as Dataobject
do = Clipboard.GetDa taObject
if do.getformats.l ength = 0
MessageBox.Show ("Clipboard is empty")
else
'...
end if

and how can I empty the clipboard?

Clipboard.SetDa taObject(New DataObject)

I tried the code below, but it didn't seem to tell me if the
clipboard was empty.
If Clipboard.GetDa taObject() Is Nothing Then
MessageBox.Show ("Clipboard is empty")
Else
Dim txtdata As IDataObject = Clipboard.GetDa taObject()
If (txtdata.GetDat aPresent(DataFo rmats.Text)) Then
MessageBox.Show (txtdata.GetDat a(DataFormats.T ext))
End If
End If

Also, the data that is being copied is basically a 8000 line
document containing data plots from an instrument in our labs. I
need to grab certain data from the third line. Any suggestions on
how to do this?

Dim txtdata As IDataObject = Clipboard.GetDa taObject()
If txtdata.GetData Present(DataFor mats.Text) Then
Dim s As String
Dim lines As String()
s = DirectCast(txtd ata.GetData(Dat aFormats.Text), String)
lines = Strings.Split(s , vbCrLf)
MsgBox(lines(2) )
End If
--
Armin

[Armin Zingler]

"Joshua Campbell" <Jo************ *@WellmanInc-DieSpamDie.com> schrieb

Dim txtdata As IDataObject = Clipboard.GetDa taObject()
If txtdata.GetData Present(DataFor mats.Text) Then
Dim s As String
Dim lines As String()
s = DirectCast(txtd ata.GetData(Dat aFormats.Text),
String) lines = Strings.Split(s , vbCrLf)
MsgBox(lines(2) )
End If

Wow...thanks a lot!

One more question: how would I save the contents to a text file?

imports sytem.io

'...

Dim fs as filestream
dim sw as streamwriter

fs = new filestream("tes t.txt", _
"", FileMode.Create New, FileAccess.Writ e, FileShare.Read _
)

sw = new StreamWriter(fs , System.Text.Enc oding.Default)
sw.write(s) 's is the variable from the first example
sw.close
The streamwriter uses UTF8 encoding by default. Specifying
System.Text.Enc oding.Default uses ANSI-Encoding. You can also use
System.Text.Enc oding.Unicode and other encodings.
see also:

<F1>
Visual Studio.NET
Visual Basic and Visual C#
Reference
Visual Basic language
Visual Basic Language Tour
-> Processing drives, folders and files
.NET Framework
Programming with .NET Framework
-> Working with I/O

(see hints in signature)
--
Armin

- The tree representing the table of contents has been translated from
localized (German) version. Excuse slight deviations.

[Joshua Campbell]

I have some playing to do with the filestream, but this definately gets me
working! Thank you very much!!!

Joshua