我能用mathematica';s StringReplace是否写入文本文件的行号?

我能用mathematica';s StringReplace是否写入文本文件的行号?,string,for-loop,text,replace,wolfram-mathematica,String,For Loop,Text,Replace,Wolfram Mathematica,我有一个mathematica程序,它的输出是一个文本文件,出于某些原因将在python中用作输入 savedXText = ExportString[savedX, "Text"]; savedXText2 = StringReplace[ savedXText, {"[" -> "(", "]" -> ")", "t" -> "m.lammda[i]*180/np.pi", "u" -> "m.phi[i]*180/np.pi"}];

我有一个mathematica程序,它的输出是一个文本文件,出于某些原因将在python中用作输入

savedXText = ExportString[savedX, "Text"];    
savedXText2 = 
  StringReplace[
   savedXText, {"[" -> "(", "]" -> ")", 
    "t" -> "m.lammda[i]*180/np.pi", "u" -> "m.phi[i]*180/np.pi"}];

Export["testOutputX.txt", savedXText2]; 
testOutputX.txt
有许多行,这些行可能会有所不同。我需要写,而不仅仅是
m.lammda
m.phi
行数。如果文件有三行,我需要
m.lammda1
m.phi1
m.lammda2
m.phi2
m.lammda3
testOutputX.txt

我的想法是使用for循环,对每行
savedX
充电,然后执行字符串替换,其中用于计算循环的变量值作为文本写入
StringReplace

我构造了一个for循环,它拾取
savedX
的每一行,并执行StringReplace

savedXReplaced = Table[RandomInteger[i, lengthLoop], {i, 1, lengthLoop}];
    For[i = 1, i < lengthLoop + 1, i++, 
 savedXTextTemp = ExportString[savedX[[i]], "Text"]; 
 savedXTextTemp2 = 
  StringReplace[
   savedXTextTemp, {"[" -> "(", "]" -> ")", 
    "t" -> "m.lammda[i]*180/np.pi", "u" -> "m.phi[i]*180/np.pi"}]; 
 Print[savedXTextTemp2]; savedXReplaced[[i]] = savedXTextTemp2]
savedXReplaced=Table[RandomInteger[i,lengthLoop],{i,1,lengthLoop}];
对于[i=1,i“(“,”]“->”),
“t”->“m.lammda[i]*180/np.pi”,“u”->“m.phi[i]*180/np.pi”}];
打印[savedXTextTemp2];savedXReplaced[[i]]=savedXTextTemp2]
然而,我已经查看了
StringReplace
的值,但还没有找到如何写入
I
的值,该for循环中使用的变量


有办法做到这一点吗

这应该能奏效

For[i = 1, i < lengthLoop + 1, i++,
 savedXTextTemp = ExportString[savedX[[i]], "Text"];
 savedXTextTemp2 = StringReplace[
   savedXTextTemp, {"[" -> "(", "]" -> ")",
    "t" -> StringJoin["m.lammda", ToString[i], "*180/np.pi"],
    "u" -> StringJoin["m.phi", ToString[i], "*180/np.pi"]}];
 Print[savedXTextTemp2]; savedXReplaced[[i]] = savedXTextTemp2]
对于[i=1,i“(“,”]“->”),
“t”->StringJoin[“m.lammda”,ToString[i],“*180/np.pi”],
“u”->StringJoin[“m.phi”,ToString[i],“*180/np.pi”}];
打印[savedXTextTemp2];savedXReplaced[[i]]=savedXTextTemp2]