[ferget]

на vbs, примерно, так

Код:

txtSource = "test.txt" 
txtOut = "test1.txt" 

Set objFSO = CreateObject("Scripting.FileSystemObject") 

Set objSourceText = objFSO.OpenTextFile(txtSource, 1) 
Set objOutText = objFSO.OpenTextFile(txtOut, 2, True) 

Set re = New RegExp
re.Pattern = "^vk.com/\bid"

Do While Not objSourceText.AtEndOfStream
line = objSourceText.ReadLine 
If re.Test(line) Then 
objOutText.WriteLine Right(line , Len(line)-9)
End If 
Loop 

objSourceText.Close 
objOutText.Close