' Basic TextPipe COM automation example
Dim oTP
Set oTP = CreateObject("TextPipe.Application")

' Configure for unattended operation
oTP.Silent = True
oTP.Visible = False
oTP.OverwriteOutput = True

' Load a filter and specify input/output
oTP.LoadFilter "C:\Filters\cleanup_csv.fll"
oTP.AddInputFile "C:\Data\raw_export.csv"
oTP.OutputFile = "C:\Data\cleaned_export.csv"

' Execute the transformation
Dim filesProcessed
filesProcessed = oTP.Go()

If filesProcessed > 0 Then
    WScript.Echo "Success: " & filesProcessed & " file(s) processed."
Else
    WScript.Echo "Error: " & oTP.GetLastError()
End If

' Always release the COM object
oTP.Quit
Set oTP = Nothing

' Process all CSV files in a folder recursively
Dim oTP
Set oTP = CreateObject("TextPipe.Application")

oTP.Silent = True
oTP.OverwriteOutput = True

' Load the transformation filter
oTP.LoadFilter "C:\Filters\standardize_dates.fll"

' Add all CSV files from folder (including subfolders)
oTP.AddInputFolder "C:\Data\Monthly_Reports", "*.csv", True

' Output to a separate folder (preserves originals)
oTP.OutputFolder = "C:\Data\Processed"

' Run the transformation
Dim count
count = oTP.Go()
WScript.Echo "Processed " & count & " of " & oTP.InputFileCount & " files."

oTP.Quit
Set oTP = Nothing

' Build a filter list programmatically
Dim oTP, oFW
Set oTP = CreateObject("TextPipe.Application")
Set oFW = oTP.FilterWindow

oTP.Silent = True

' Clear any existing filters
oFW.ClearFilters

' Add a search-and-replace filter
Dim idx
idx = oFW.AddFilter("Search and Replace")
oFW.SetFilterProperty idx, "SearchText", "oldserver.company.com"
oFW.SetFilterProperty idx, "ReplaceText", "newserver.company.com"
oFW.SetFilterProperty idx, "CaseSensitive", False

' Add a second replacement
idx = oFW.AddFilter("Search and Replace")
oFW.SetFilterProperty idx, "SearchText", "http://"
oFW.SetFilterProperty idx, "ReplaceText", "https://"
oFW.SetFilterProperty idx, "CaseSensitive", False

' Save the filter list for reuse
oFW.SaveFilterList "C:\Filters\server_migration.fll"

' Process files
oTP.AddInputFile "C:\Config\app.config"
oTP.OutputFile = "C:\Config\app_updated.config"
oTP.OverwriteOutput = True
oTP.Go

oTP.Quit
Set oTP = Nothing

# TextPipe COM automation from PowerShell
$tp = New-Object -ComObject TextPipe.Application

try {
    $tp.Silent = $true
    $tp.Visible = $false
    $tp.OverwriteOutput = $true

    # Load filter and configure
    $tp.LoadFilter("C:\Filters\ebcdic_to_ascii.fll")
    $tp.AddInputFile("C:\Data\mainframe_extract.dat")
    $tp.OutputFile = "C:\Data\converted_output.txt"

    # Execute transformation
    $count = $tp.Go()
    Write-Host "Successfully processed $count file(s)."
}
catch {
    $errorMsg = $tp.GetLastError()
    Write-Error "TextPipe error: $errorMsg"
    Write-Error $_.Exception.Message
}
finally {
    # Always release COM object
    $tp.Quit()
    [System.Runtime.InteropServices.Marshal]::ReleaseComObject($tp) | Out-Null
    [System.GC]::Collect()
}

# Batch processing with logging
$tp = New-Object -ComObject TextPipe.Application

try {
    $tp.Silent = $true
    $tp.OverwriteOutput = $true
    $tp.LogFile = "C:\Logs\textpipe_$(Get-Date -Format 'yyyyMMdd').log"

    # Load the data cleansing filter
    $tp.LoadFilter("C:\Filters\data_cleansing.fll")

    # Process multiple input folders
    $folders = @(
        "C:\Data\Sales",
        "C:\Data\Marketing",
        "C:\Data\Finance"
    )

    foreach ($folder in $folders) {
        $tp.ClearInputFiles()
        $tp.AddInputFolder($folder, "*.csv", $true)
        $tp.OutputFolder = "$folder\Processed"

        $count = $tp.Go()
        Write-Host "Processed $count files from $folder"
    }

    Write-Host "Total files processed: $($tp.FilesProcessed)"
}
finally {
    $tp.Quit()
    [System.Runtime.InteropServices.Marshal]::ReleaseComObject($tp) | Out-Null
}