Set Quote ¥ Set Var DownPath ¥¥ Set Var CatNum 0 Set Var Count 0 # If Exists ¥$ScriptPathDebug¥ÊDelete File ¥$ScriptPathDebug¥ # Set Debug File ¥$ScriptPathDebug¥ Set Var OD ¥$OnlineDisplay¥ Set OnlineDisplay ¥Spectrum SHR¥ Ext LineEdit 0 If Failed Ask1 ¥This script requires the LineEdit XCMD to be active.¥ ¥^^Ooops!¥ 0; Stop Script Ext RadioCheck 0 If Failed Ask1 ¥This script requires the RadioCheck XCMD to be active.¥ ¥^^Ooops!¥ 0; Stop Script Ext ScriptEditor 0 If Failed Ask1 ¥This script requires the ScriptEditor XCMD to be active.¥ ¥^^Ooops!¥ 0; Stop Script Set Var NumChanges 0 Set Var SaveTyp 1 Clear Screen Get File ¥Choose a file in the directory.¥ 0 1 If Failed Stop Script Ext LineEdit 1 2 0 350 Ext LineEdit 2 ¥Sedistic¥ Ext LineEdit 3 2 ¥Replace: ¥ 255 Ext LineEdit 3 1 ¥Find :¥ 255 Ext LineEdit 4 Find Replace If Failed Ext LineEdit 9; Stop Script Ext LineEdit 9 If Null ¥$Find¥ÊStop Script Set Var Path ¥$SFPrefix¥ Set Var Origin ¥$Path¥ Ext RadioCheck 1 5 2 250 Ext RadioCheck 2 ¥Options¥ Ext RadioCheck 3 1 ¥Ignore non-text files¥ 1 1 Ext RadioCheck 3 2 ¥Support non-text files¥ 0 1 Ext RadioCheck 3 3 ¥Convert non-text files¥ 0 1 Ext RadioCheck 3 4 ¥Explore subfolders¥ 1 0 Ext RadioCheck 3 5 ¥Case sensitive¥ 0 0 Ext RadioCheck 4 Text1, Text2, Text3, GoDown, CSens If Failed Ext RadioCheck 9; Stop Script Ext RadioCheck 9 If Equal $CSens 1 Set CaseSensitive On Else Set CaseSensitive Off If Equal $Text1 0 Set Var SupTypes ¥TXTAWPGWP¥ Else Set Var SupTypes ¥TXT¥ Clear Screen # GotoXY 0,23 # Begin On Error Goto ¥¥ If Equal $CatNum 10 DisplayRecord ¥Unable to move deeper than 10 subdirectories, continuing...^m¥; Gotonext EndProg2 On Escape Gotonext TempEndProg If Not Null ¥$DownPath¥ Set Var Path ¥$DownPath¥; Set Var DownPath ¥¥ Ext LineEdit 0 Set SFPrefix ¥$Path¥ Open Catalog $CatNum ¥$Path¥ # ReadAgain Read Catalog $CatNum Fil If Failed Gotonext EndProg Substring ¥$Fil¥ 33 3 Typ Substring ¥$Fil¥ 1 15 Fil Trim Spaces ¥$Fil¥ Fil If Equal $Typ DIR If Equal $GoDown 1 Set Var DownPath ¥$Path$Fil:¥; Inc CatNum; DisplayRecord ¥- Moving down to $DownPath^m¥; On Error Gotonext SubError; Gosub Begin; Goto ReadAgain # Continue Inc Count If Not Contains ¥$SupTypes¥ ¥$Typ¥ Goto ReadAgain If Equal $Typ GWP Set Var SaveTyp 2 If Equal $Typ AWP Set Var SaveTyp 3 If Equal $Text3 1 Set Var SaveTyp 1 DisplayRecord ¥File $Count: $Fil¥ Load ScriptEditor 0 ¥$Fil¥ # DoReplace Set Var NumChanges 0 Apply Replace ¥$Find¥ ¥$Replace¥ NumChanges If Not Equal $NumChanges 0 GotoXY 27,$CurrentY; DisplayRecord ¥- $NumChanges changes¥ DisplayRecord ^m If Not Equal $NumChanges 0 Save ScriptEditor 0 ¥$Path$Fil¥ $SaveTyp Clear ScriptEditor 0 Goto ReadAgain # EndProg Close Catalog $CatNum # EndProg2 Dec CatNum If Equal ¥$Path¥ ¥$Origin¥ Play Sound Trumpets; Set OnlineDisplay ¥$OD¥; Stop Script Set Var Reverse $LengthPath # Subtract $Reverse 1 Reverse # BackUp Subtract $Reverse 1 Reverse Substring ¥$Path¥ $Reverse 1 Temp If Not Equal $Temp : Goto BackUp Substring ¥$Path¥ 1 $Reverse Path Set SFPrefix ¥$Path¥ DisplayRecord ¥- Moving up to $Path^m¥ Return # TempEndProg On Escape Goto ¥¥ Display ^m Goto EndProg # SubError On Error Gotonext ¥¥ If Equal ¥$ErrorCode¥ ¥$$06¥ DisplayRecord ¥Unable to move deeper than 16 subdirectories, continuing...^m¥; Goto Continue DisplayRecord ¥Fatal error $ErrorCode^m, stopping script.¥ For 0 1 16 Close Catalog $ForValue0 Next 0 Set OnlineDisplay ¥$OD¥ Stop Script