private void input_Click() { CommonDialog1.Filter = "all files(*.*)|*.*|text_files(*.txt)|*.txt|batch files(*.bat)|*.bat"; CommonDialog1.ShowOpen;Open CommonDialog1.FileName For Input As #1; Input #1, m; for (var i = 1; i <= m; i++) { Input #1, noriver(i); } for (var i = 1; i <= m; i++) { Input #1, ff(i); } num = 1; while (! (Microsoft.VisualBasic.FileSystem.EOF(1))) //==============资料输入 { Input #1, t(num); pp(num) = 0; for (var i = 1; i <= m; i++) { Input #1, p(num, i); pp(num) = p(num, i) * ff(i) + pp(num); } Input #1, EPpP(num); num = num + 1; } num = num - 1; //这里表示原始系列的个数 n = num; Close #1; Open App.Path + "\\源口站水位流量关系.txt" For Input As #2; for (var i = 1; i <= 107; i++) { Input #2, h(i), qh(i); }Close #2;}
http://download.csdn.net/detail/zhongyuansheng/3798875
private void input_Click()
{
CommonDialog1.Filter = "all files(*.*)|*.*|text_files(*.txt)|*.txt|batch files(*.bat)|*.bat";
CommonDialog1.ShowOpen;Open CommonDialog1.FileName For Input As #1;
Input #1, m; for (var i = 1; i <= m; i++)
{
Input #1, noriver(i);
} for (var i = 1; i <= m; i++)
{
Input #1, ff(i);
} num = 1;
while (! (Microsoft.VisualBasic.FileSystem.EOF(1))) //==============资料输入
{
Input #1, t(num);
pp(num) = 0;
for (var i = 1; i <= m; i++)
{
Input #1, p(num, i);
pp(num) = p(num, i) * ff(i) + pp(num);
}
Input #1, EPpP(num); num = num + 1;
} num = num - 1; //这里表示原始系列的个数 n = num;
Close #1;
Open App.Path + "\\源口站水位流量关系.txt" For Input As #2; for (var i = 1; i <= 107; i++)
{
Input #2, h(i), qh(i);
}Close #2;}