PureBasic 打开一个一行有多个数据的文件并读取其中某个数据
如果有一个文件如下:
TITLE = "Water Wurface Elevation"
VARIABLES = "X", "Y", "WS"
Zone N= 384016, E= 96004, DT=(DOUBLE DOUBLE SINGLE), F=FEPOINT, ET=QUADRILATERAL, T="Flow 54.000 @ 290.00 Days"
417183.062 3121115.75 25.17824
417387.938 3121108.75 25.17824
417381.781 3120930.5 25.17824
417176.844 3120937.5 25.17824
417387.938 3121108.75 25.18108
417592.625 3121101.5 25.18108
417586.438 3120923.5 25.18108
417381.781 3120930.5 25.18108
417592.625 3121101.5 25.18995
417797.031 3121094.5 25.18995
417790.688 3120916.75 25.18995
417586.438 3120923.5 25.18995
.......
135813 135814 135815 135816
135817 135818 135819 135820
135821 135822 135823 135824
135825 135826 135827 135828
135829 135830 135831 135832
135833 135834 135835 135836
135837 135838 135839 135840
135841 135842 135843 135844
135845 135846 135847 135848
......
PureBasic可以采用正则表达式来实现,读取每行中第三个数据,如果每行包含四个数据,则不保存。
读取含三个数据的每行第三个数据并保存的代码如下:
StandardFile$ = "*.plt" Pattern$ = "文本文件 (*.txt)|*.txt;所有文件 (*.*)|*.*" Pattern = 1 File$ = OpenFileRequester("请选择需要打开的文件", StandardFile$, Pattern$, Pattern) If File$ MessageRequester("信息", "你选择了:" + Chr(10) + File$, 0) If CreateRegularExpression(0, "[0-9.]+") Dim Result$(0) If OpenFile(0,File$) CreateFile(1,"c:\test.dat") Text$=ReadString(0) Text$=ReadString(0) Text$=ReadString(0) While Eof(0)=0 Text$=ReadString(0) a = ExtractRegularExpression(0,Text$, result$()) Str$=result$(2) If a=3 WriteStringN(1,Str$) EndIf Wend CloseFile(0) CloseFile(1) MessageRequester("信息", "完成了文件的输出!",0) EndIf Else MessageRequester("正则表达式有误", RegularExpressionError()) EndIf EndIf
相关文章
- ASP.NET Core 2.2 : 十六.扒一扒新的Endpoint路由方案 try.dot.net 的正确使用姿势 .Net NPOI 根据excel模板导出excel、直接生成excel .Net NPOI 上传excel文件、提交后台获取excel里的数据
- 使用python读取csv文件中的数据
- MySQL innodb引擎下根据.frm和.ibd文件恢复表结构和数据
- 使用python-docx将行业标准元数据转化为CSV文件
- C++实现通过UDP传输文件
- windows下使用自带工具certutil验证文件的哈希码
- Unknown property 'mybatis-plus' yml文件报错
- 《机器学习与数据科学(基于R的统计学习方法)》——2.5 读取CSV文件
- FileProvider使用详解(拍照、安装APP、共享文件)
- Android创建文件夹及文件并写入数据
- numpy的文件存储,读取 .npy .npz 文件
- 《数据科学:R语言实现》——2.3 读取和写入CSV文件
- Python(一)——抓取网页数据(A股股票名称)并存入本地文件
- java nio 读取大文件
- host文件介绍与使用:域名与IP映射数据库、作用(加快域名解析、方便局域网用户、屏蔽网站、使用本地域名替代繁琐的ip)
- clientdataset 读取excel 如果excel 文件不存在的时候 相应的gird 会不显示数据, 鼠标掠过 gird 格子 才会显示数据。 这是一个bug 哈哈
- Seafile:用挂载盘客户端让企业在线编辑云端文件
- 曹工杂谈:Linux服务器上,Spring Boot 原地修改 jar 包配置文件/替换class文件,免去重复上传的麻烦
- C# 请求数据 模拟多文件上传
- 解决SpringBoot文件上传报错:org.apache.tomcat.util.http.fileupload.impl.FileSizeLimitExceededException