Preloading ValidChars at compile time will give a small gain in performance. Instead of
Code: Select all
ValidChars = "ABC..." Code: Select all
Equate ValidChars To "ABC..."Code: Select all
ValidChars = "ABC..." Code: Select all
Equate ValidChars To "ABC..."Code: Select all
If Index(ValidChars, TestChar, 1) Then
RetValue := TestChar
EndCode: Select all
RetValue := TestCharCode: Select all
RetValue = RetValue : TestCharCode: Select all
touch myfile_`cat sequencefile`.txt