一、打开文件:
FILE *fopen(const char *filename, const char *mode)
因为txt文件为文本文件, 所以打开时选择的mode应为"r"或者"rt"。
二、读取文件:
读取文件应根据文件内容的格式,以及程序要求,选择读取文件的函数。可以使用一种,也可以几种混用。 常用的文件读取函数如下:
1、fgetc, 从文件中读取一个字节并返回。 适用于逐个字节读取。
2、 fgets, 从文件中读取一行。适用于整行读取。
3、fscanf, 格式化读取文件, 在已经清楚文件存储格式下,可以直接用fscanf把文件数据读取到对应类型的变量中。
4、fread, 整块读取文件, 对于txt文件比较少用。
三、关闭文件:
读取结束后,应调用fclose函数关闭文件。
不知道你要什么样的文本,文本中的内容是否是有格式的:
这里提供下思路,供参考:
1.文本文件,基本上式字符格式的了,可以用Reader io流
2.如果是格式化的文本,可以按数据的长度读取, readInt readByte...
3.保存到数据库 当然用JDBC了,如果你读取出来封装成POJO了,也可以选择 OM框架
import java.io.BufferedReader
import java.io.FileInputStream
import java.io.IOException
import java.io.InputStreamReader
/**
* 文件读取和写入数据库
* @author 樊云升
*
*/
public class FilesReader {
public FilesReader(){
}
/**
* 读取文件内容
* @param FILE
* @return
*/
public String re_content(String FILE){
String content=""
try{
BufferedReader bufRead=new BufferedReader(new InputStreamReader(new FileInputStream(FILE)))
String str
while((str=bufRead.readLine())!=null){
content+=str+"\r\n"
}
}catch(IOException ioe){
ioe.printStackTrace()
}
return content
}
/**
* 将特定字符写入数据库中(原来我写的是重写文件,你这里这里将content写入数据库就OK)
* @param path
* @return
*/
public boolean writeFile(String content){
try{
//数据库写入代码
}catch(Exception e){
out.close()
return false
}
return true
}
public static void main(String[] args) {
String content=new FilesReader().re_content("D:\\AJAX.htm")
new FilesReader().writeFile(content)
}
}
有一段人事档案资料archive txt 内容如下 小许 男 工程师 小吴 女 助理工程师 小蔡 男 助理工程师 小牟 女 工程师
要将它转入数据库archive dbf中 archive dbf结构如下 姓名 性别 年龄 职称
怎么办呢?现在通过使用delphi编程 很好地解决了这个难题 Delphi提供了许多功能强大 丰富的字符处理函数和过程 常用的有 ( )function Length(S String) Integer//返回串的长度 ( )function Copy(S StringIndex Count Integer) String//给出一个字符串中串的拷贝 ( )function Pos(Substr StringS String)Integer//查找子串在字符串中的位置 ( )Procedure Delete(VarS StringIndex Count Integer) //从一个字符串中去除子串
利用Delphi提供的已有函数和过程基础上编制自己的三个函数 实现了纯文本格式资料转入数据库功能 只要Delphi支持的数据库都可以支持
archive txt中每行数据为一个字符串 字符串中每个被分割的数据为一个字段 分割每个字段的字符为分割符 这里是空格 也可以是 #等符号 具体思想是 先将字符串进行调整 然后把串中每个字符同分割符比较 将不是分割符的字符追加到MyStr串中 最后得到一个字段的内容 通过一个循环 就可以将一个字符串分成几个字段
Function Regulate(aString Sepchar string) string //去掉多余的分割符 规范字符串 Function GetSubStr(varsString stringSepChar String) String //得到字符串中一个子串 因要改变参数aString的值 所以将它用var定义 FunctionGetSubStrNum(aString SepChar String) Integer//计算一个字符串要被分割成几个字段 参数 aString是所需分割的一个字符串 SepChar是分割符
Function RegulateStr(aString StringSepchar String) String var i Num Integer Flag Boolean MyStr TempStr Stringbegin Flag:=False//进行标志 去除多余的分割符 Num:=Length(aString)//计算aString串的长度 for i:= to Num do begin TempStr:=Copy(aString i )//取aString串中的一字符 if TempStr <>SepChar then begin MyStr:=MyStr+TempStr Flag:=True end else if(Flag = True)then begin Mystr:=Mystr+TempSrt Flag:=False end end if MyStr[Length(MyStr)] <>SepChar then MyStr:=MyStr+SepChar RegulateSrt:=MyStrend
Function GetSubStr(var aString String SepChar Strign) Stringvar Mysrt String StrLen Integer SepCharPso Integerbegin StrLen:=Length(aString) SepCharPos:=Pos(SepChar aString)//计算分割符在子串中的位置 MyStr:=Copy(aString SepCharPos- )//将分割符前所有字符放到mystr串中 Delete(aString SepCharPos)//除去分割符和分割符前的子串 GetSubStr:=MyStr//返回一个字段 end
FunctionTforml GetSubStrNum(aString StringSepChar String) Integervar i Integer StrLen Integer Num Integerbegin StrLen:=Length(aString) Num:= for i:= to StrLen do if Copy(aString i ) = SepCharthen Num:=Num+ GetSubSrtNum:=Numend
有了上面三个函数 现在介绍一下具体的应用 首先建立一个窗体Forml 加入一个RichEditl(或Menol) 一个按钮Buttonl和一个Tablel 设置Tablel的属性 Tablell DataBase = c:\Archivs Tablell TableName = Archive dbf
分别加入以下程序 Const Space= ProcedureTForml FormCreate(Sender Tobject)begin RichRditl Lines LoadFromFile( Archive txt )end
lishixinzhi/Article/program/Delphi/201311/25055
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)