Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Imports System.IO Module Mod1 Sub Main() Dim fIn As StreamReader Dim fOut As StreamWriter Dim sArry() As String 'This reads file and creates/overwrites new .dat fIn = New StreamReader(New FileStream("c:\testfile1.dat", fileMode.Open)) fOut = New StreamWriter(New FileStream("c:\testfile2.dat", FileMode.Create)) 'Parse text Do Until (fIn.EndOfStream) sArry = Split(fIn.ReadLine, ",") If UBound(sArry) = 8 Then _ fOut.WriteLine(sArry(4) & " " & sArry(2) & " " & sArry(1) & " " & sArry(0) & "TEXT") Loop fIn.Close() fOut.Close() End Sub End Module
Join the community of 500,000 technology professionals and ask your questions.