Public Sub ScrubPAC(pacfile As String) Dim xRead As System.IO.StreamReader Dim xWrite As System.IO.StreamWriter Dim sBuf As String Dim sTemp As String Dim sFileName As String Dim pFileNameNew As String 'Scrub PAC currentdir = "C:\SOM Folder\VB Development\SOMBBStatGen\" sFileName = pacfile pFileNameNew = currentdir & "pbp\WIPPAC.prt" 'read original pac file sTemp = "" xRead = IO.File.OpenText(sFileName) Do Until xRead.EndOfStream sBuf = xRead.ReadLine sTemp = sTemp & sBuf & vbCrLf Loop 'remove print codes sTemp = Replace(sTemp, "[1]", "") sTemp = Replace(sTemp, "[2]", "") 'Write Clean PAC xWrite = My.Computer.FileSystem.OpenTextFileWriter(pFileNameNew, False) xWrite.WriteLine(sTemp) xWrite.Close() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)