[求助]：关于文件的读取

xux4618

现在我想在文件操作时，在某一行的前面插入一行，不知该如何才能做到？请各位帮忙！

chenlei

将某行前的内容写入新文件，加入新行，加入某行及其后的内容。
将原文件关闭，改后缀为BAK。
将新文件改名为原文件名。

xux4618

需要编程操作

fylinwater

这里有了一个读取文件到字符串数组的  然后只要对数组操作就可以了
只是把字符数组保存到文件中去的
bool oxaReadTextFile(CString sFile,  CStringArray &saFileText ,bool bRemove)
待写

1. 
   
2. 
   
3. //////////////////////////////////////////////////////////////////////////////////
   
4. //#  DOC.BEGIN
   
5. //#  函数名称： oxaReadTextFile
   
6. //#  函数编号： OXA
   
7. //#  函数声明：
   
8. //#  输入参数： CString sFile     //文件名
   
9. //                                bool    bRemove   []=false
   
10. //#  输出参数： saFileText  CStringArray []   //获取行字符串的字符数组
    
11. //#  返回值：   bool  rt
    
12. //#  函数分类：
    
13. //#  函数功能：读取文本文件字符
    
14. //#  注意事项：  
    
15. //#  涉及的全局变量：
    
16. //#  调用的OXARX函数：
    
17. //#  函数算法：  
    
18. //#  ACAD版本：R14  R15  R16
    
19. //#  配合函数：
    
20. //#  类似函数：
    
21. //#  替换函数：
    
22. //#  现存缺陷：
    
23. //#  示例程序：
    
24. //#  测试要求：
    
25. //#  历史记录： 2003年9月26日 , zjw ,编制
    
26. //  
    
27. //#  DOC.END
    
28. bool oxaReadTextFile(CString sFile,  CStringArray &saFileText ,bool bRemove)
    
29. {
    
30.         CString sText = _T("");
    
31.         CStdioFile file;
    
32.         CFileFind findfile;
    
33.         if (!findfile.FindFile(sFile))return FALSE;
    
34.        
    
35.         if(file.Open(sFile,CFile::modeRead))
    
36.         {
    
37.                 BOOL bSuccess = TRUE;
    
38.                 if (bRemove)
    
39.                 {
    
40.                         saFileText.RemoveAll();
    
41.                 }
    
42.                 while(bSuccess)
    
43.                 {
    
44.                         bSuccess = file.ReadString(sText);
    
45.                         if(bSuccess)
    
46.                         {
    
47.                                 saFileText.Add(sText);                       
    
48.                         }
    
49.                 }
    
50.                 file.Close();
    
51.         }
    
52.         return TRUE;
    
53. }
    
54. //
    

复制代码

xux4618

请快点写吧！！！多谢了

fylinwater

saFileText.IsertAt( iCount , str);
/////
bool oxaWriteTextFile(CString sFile,  CStringArray &saFileText ,bool bRemove=false);
bool oxaWriteTextFile(CString sFile,  CStringArray &saFileText ,bool bRemove)
{
        CStdioFile file;
       
        if(file.Open(sFile,CFile::modeNoTruncate|CFile::modeCreate|CFile::modeWrite)
                )
    {
                int iLine=saFileText.GetSize();
                for(int i=0;i<iLine;i++)
                {
                        file.WriteString(saFileText+"\n");  // 逐行写入数据
                }
                file.Close();
                if (bRemove)
                {
                        saFileText.RemoveAll();  // 清空数组
                }
                return TRUE;
    }
       
    return false;
}

xux4618

现有
DK,1595730,20,30
DK,1596000,20,30
DK,1598650,20,30
DK,1598697.22,20,30
DK,1598715.98,20,30
DK,1598750,20,30
DK,1598797.21,20,30
DK,1598897.2,20,30
DK,1598997.19,20,30
DK,1599097.18,20,30
DK,1599166.7,20,30
DK,1599197.18,20,30
DK,1599297.18,20,30
DK,1599497.18,20,30
DK,1600206.3,20,30
DK,1600275.5,20,30
DK,1600296.8,20,30
DK,1600396.38,20,30
DK,1600496.37,20,30
DK,1600596.37,20,30
DK,1600696.36,20,30
DK,1600796.36,20,30
DK,1600896.15,20,30
DK,1600996.35,20,30
DK,1601196.35,20,30
DK,1601200,20,30
DK,1601200,20,30
现在希望在大于1601000的行前追加一行
该如何操作？请赐教