Check out the updates in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI that improves session organization and overall user experience. See the enhancements for yourself!
Private Sub Command1_Click() Dim f As Integer Dim g As Integer Dim strLine As String f = FreeFile Open "C:\Users\Alpesh\Desktop\111114.txt" For Input As #f g = FreeFile Open "c:\Users\Alpesh\Desktop\052214.txt" For Append As #g Do Until EOF(f) Line Input #f, strLine If InStr(strLine, "BlockedIP") > 0 Then Print #g, strLine End If Loop Close #g Close #f End Sub
|I need help formating a date variable in my VB.Net application||2||52|
|How to edit the macro code to limit the number of characters when creating worksheet tab name||5||49|
|SQL VB connection works in one PC and doesn't in another||15||64|
|HOW D I CLEAR PICTURES IN IMAGE CONTROL AND COMMENTS IN CELLS WHEN WORKBOOK IS OPENED||18||97|