// StrTran("BCDBCDFEDFED", "D", "Z") => Replace all "D" with "Z" in String!
// Return "BCZBCZFEZFEZ"
// = REPLACE in Excel
Input: BaseStr(StringSimple), TakeStr(StringSimple), ReplStr(StringSimple);
variable: BaseLen(0), InLen(0);
variable: ResultStr(""), LeaveStr("");

BaseLen = StrLen(BaseStr);
InLen = InStr(BaseStr, TakeStr);

If InLen = 0 Then
    ResultStr = BaseStr   // not found
Else begin
    ResultStr = LeftStr(BaseStr, InLen - 1) + ReplStr;
    LeaveStr = MidStr(BaseStr, InLen + StrLen(TakeStr), StrLen(BaseStr)-StrLen(TakeStr));
    
    While InStr(LeaveStr, TakeStr) > 0 begin
        InLen = InStr(LeaveStr, TakeStr);
        ResultStr = ResultStr + LeftStr(LeaveStr, InLen - 1) + ReplStr;
        LeaveStr = MidStr(LeaveStr, InLen + StrLen(TakeStr), StrLen(LeaveStr)-StrLen(TakeStr));
    End;
    
    ResultStr = ResultStr + LeaveStr;
End;

StrTran = ResultStr;

print("D:\" + strtran(symbol, "/", "") + ".txt", "Date"  ..... );