I can have a text in the Clipboard and want to paste it into TWO TextAreas.
The firt line will always go to the first TextArea (TA_Character_Name below) and the remainding will go to the other TextArea (TA_Comments.Text below).
I found this code. It works, but
is there a shorter ? Better ? Solution ?
How would you do that (if you have to do it) ?
[code] Dim Text_Packet As String
Dim Char_Name As String
Dim Char_Comments(-1) As String
// Change the end of line character(s) Text_Packet = ReplaceLineEndings(Clip.Text, EndOfLine) // Place the first line into TA_Character_Name.Text Char_Name = NthField(Text_Packet, EndOfLine, 1) TA_Character_Name.Text = Char_Name // Keep only the remainding of the String Char_Comments = Split(Text_Packet, EndOfLine) Char_Comments.Remove(0) // Store the remainder into TA_Comments.Text TA_Comments.Text = Join(Char_Comments, EndOfLine)[/code]