string Replace function - Strtran (Free code here)

 

Code

// 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;

If you need to print symbol with "USD/JPY" to file
you need to remove / from symbol into filename
Now, you can simple call above function:

 

Code

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