zoukankan
html css js c++ java
读写Unicode和UTF8格式文件
//---------------------------------------------- // Unit Name: FileExt.pas // Comment: 读写UTF8和UNICODE格式文件的一组函数 // Author: xieyunc 改自网络 // Date : 2007-11-23 10:47:59 //---------------------------------------------- unit FileExt; interface uses SysUtils,Windows,Types,Classes; const utf8Head: Array[0..2] of Char = (#239,#$bb,#$bf); unicodeHead: Array[0..1] of Char = (#255,#$fe); function ReadUtf8File(const filename:string):UTF8String; procedure WriteUtf8File(const filename:string;mem:Utf8String); function ReadUnicodeFile(const filename:string):WideString; procedure WriteUnicodeFile(const filename:string;mem:Widestring); implementation // read utf8 file function ReadUtf8File(const filename:string):Utf8String; var memoStream:TFileStream; buf:array of Char; begin memoStream:=TFileStream.Create(filename, fmOpenRead); try setlength(buf,memoStream.size); memoStream.ReadBuffer(buf[0], memoStream.size); //utf-8 file if (buf[0]=Utf8Head[0]) and (buf[1]=Utf8Head[1]) and (buf[2]=Utf8Head[2]) then begin FillChar(buf, SizeOf(buf), #0); memoStream.Seek(3,soFromBeginning); setlength(buf,memoStream.size-3); memoStream.ReadBuffer(buf[0], memoStream.size-3); result:=Utf8String(buf); exit; end else result:=UTF8Encode(WideString('文件不是UTF8格式!')); finally memoStream.Free; end; end; // read unicode file function ReadUnicodeFile(const filename:string):WideString; var memoStream:TFileStream; buf:array of Char; begin memoStream:=TFileStream.Create(filename, fmOpenRead); try setlength(buf,memoStream.size); memoStream.ReadBuffer(buf[0], memoStream.size); //unicode file if (buf[0]=UnicodeHead[0]) and (buf[1]=UnicodeHead[1]) then begin FillChar(buf, SizeOf(buf), #0); memoStream.Seek(2,soFromBeginning); setlength(buf,memoStream.size-2); memoStream.ReadBuffer(buf[0], memoStream.size-2); result:=PWideChar(buf); exit; end else result:=WideString('文件不是UNICODE格式!'); finally memoStream.Free; end; end; procedure WriteUnicodeFile(const filename:string;mem:Widestring); var wms:TMemoryStream; begin wms:=TMemoryStream.Create; wms.WriteBuffer(unicodeHead,length(unicodeHead)); wms.WriteBuffer(PChar(mem)^,length(mem)*2); wms.SaveToFile(filename); wms.Free; end; procedure WriteUtf8File(const filename:string;mem:Utf8String); var wms:TMemoryStream; begin wms:=TMemoryStream.Create; wms.WriteBuffer(utf8Head,length(utf8Head)); wms.WriteBuffer(pchar(mem)^,length(Ansistring(mem))); wms.SaveToFile(filename); wms.Free; end; end.
直接下载单元文件FileExt.pas
点击这里下载文件: FileExt.rar
谢祥选【小宇飞刀(xieyunc)】
查看全文
相关阅读:
tensorflow学习笔记五----------逻辑回归
tensorflow学习笔记四----------构造线性回归模型
tensorflow学习笔记三----------基本操作
tensorflow学习笔记二----------变量
tensorflow学习笔记一----------tensorflow安装
大屏某区域滚动效果循环
echarts轨迹图,各个城市线路图轨迹如何取值
react组件,样式添加的方法
微信小程序中hidden属性不生效
react组件渲染编程html不成功
原文地址:https://www.cnblogs.com/xieyunc/p/2793593.html
最新文章
谍影重重1风景大赏
SSM+layui实现增删改查
layui树形结构更改
opencv图像坐标
Java安装及环境配置
Matlab:双曲方程
Matlab:正则Euler分裂
Mtlab:抛物型方程的交替方向隐格式(ADI)
Matlab:椭圆方程的导数边值问题
Matlab:Crank Nicolson方法求解线性抛物方程
热门文章
Matlab:非线性高阶常微分方程的几种解法
Matlab:高阶常微分三种边界条件的特殊解法(中心差分法,高精度导数边界处理)
Matlab:高阶常微分三种边界条件的特殊解法(隐式Euler)
Matlab:五点差分方法求解椭圆方程非导数边值问题
Matlab:导数边界值的有限元(Ritz)法
Linux学习笔记一----------虚拟机安装
使用redis+flask维护动态代理池
tensorflow学习笔记七----------RNN
tensorflow学习笔记七----------卷积神经网络
tensorflow学习笔记六----------神经网络
Copyright © 2011-2022 走看看