cut lines of text(specific)

[TTn]

--------------------------------------------------------------------------------

I cant seem to find how to simply select a certain number of lines, in a text.

Dim PadId As Integer
On Error Resume Next

PadId = Shell("Notepad MyFile", 1)
AppActivate(PadId)


'select and cut lines 1 thru x. ??? I already have the line counter x.

'paste elsewhere
'save file
'close file

Thanks in advance!

[Merri]

Do you have to do this with NotePad? It would be much easier to open the file within the VB code and process data there.

[TTn]

Well any example is nice but, I would prefer it done this way.
Some temporary Internet files, and cookies do not always delete through microsoft code.

[Jmacp]

You could do this to cut the text,

Private Sub GetText(ByVal numOFlines As Integer, filename As String)
 
Dim strData As String
Dim i       As Integer
Dim slen    As String
  
    Open filename For Input As #1
    For i = 1 To numOFlines
        Line Input #1, slen
        strData = strData & slen & vbCrLf
    Next i
    Close #1
      
End Sub

To paste elsewhere just open a new file for output then print strData.