2023-02-03 23:40来源:m.sf1369.com作者:宇宇
# R提供了一个edit函数,让使用者可在一个特定的窗口中更改自设函数,使用者便不用在每次更改函数时重打一次。
fix函数会使用窗口中的预设编辑器(记事本)。 > fix(stdev) # 输入上述指令后,便会出现一个记事本的窗口,让使用者更改stdev的定义。当更改完毕后关闭窗口,新的定义便会自动储存。
R还有内置函数edit ,可以用来编辑R原始码的档案: > edit(file="myfile.r") # 忠告:在编写函数及R原始码档案时,读者应尽量使用批注及缩排(indent)。这样可使函数及原始码更容易阅读及修改。
绝大部分的程序编写员都会遵从这些习惯。
按你的步骤
4,然后打开-----分隔符号-----下一步----空格
5. 下一步----在下面选择02000所在的列,在右上角选择“文本---完成 即可.
将txt中的数据转到excel表中,做为matlab的数据源。步骤如下:下载一个Microsoft.Office.Interop.Excel.dll 在项目中引用。
编写代码如下:
string path = c://date//xyu.txt;
StreamReader sr = new StreamReader(path);
string strLine = sr.ReadLine();
int rowNum = 1;
object missing = System.Reflection.Missing.Value;
ApplicationClass app = new ApplicationClass();
app.Application.Workbooks.Add(true);
Workbook book = (Workbook)app.ActiveWorkbook;
Worksheet sheet = (Worksheet)book.ActiveSheet;
while (!string.IsNullOrEmpty(strLine))
{
string[] tempArr;
tempArr = strLine.Split(',');
for (int k = 1; k <= tempArr.Length; k++)
{
sheet.Cells[rowNum, k] = tempArr[k - 1];
}
strLine = sr.ReadLine();
rowNum++;
}
//保存excel文件
book.SaveCopyAs(D://source.xls);
//关闭文件
book.Close(false, missing, missing);
//退出excel
app.Quit();
MessageBox.Show(转化成功!);
以上代码可以实现功能,由于txt中的数据有60501行,数据量太大。估算了一下,用以上代码转到excel要用大约2-3分钟。用rang方法可以提高速率。只用大约3-4秒钟的时间,提高效率几十倍。代码如下:
string path = c://date//xyu.txt;
StreamReader sr = new StreamReader(path);
string strLine = sr.ReadLine();
int rowNum = 1;
object missing = System.Reflection.Missing.Value;
ApplicationClass app = new ApplicationClass();
app.Application.Workbooks.Add(true);
Workbook book = (Workbook)app.ActiveWorkbook;
Worksheet sheet = (Worksheet)book.ActiveSheet;
Range r = sheet.get_Range(A1, C1);
//获取行数
object[,] objectData = new object[65535, 3];
while (!string.IsNullOrEmpty(strLine))
{
string[] tempArr;
tempArr = strLine.Split(',');
for (int k = 1; k <= tempArr.Length; k++)
{
objectData[rowNum-1, k-1] = tempArr[k - 1];
}
strLine = sr.ReadLine();
rowNum++;
}
r = r.get_Resize(65535, 3);
r.Value2 = objectData;
r.EntireColumn.AutoFit();
//保存excel文件
book.SaveCopyAs(D://source.xls);
//关闭文件
book.Close(false, missing, missing);
//退出excel
app.Quit();
MessageBox.Show(转化成功!);