May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|to transfer string from C lanaguage to VBA||4||85|
|VB6 - Convert HH:MM into Decimal||8||76|
|Using an encrypted value to decrypt and display contents in vb6||9||63|
|Excel Macro: Correct Macro that creates tabs for each "AccountSku"||4||52|
Join the community of 500,000 technology professionals and ask your questions.