关于pb读取txt文件中指定位置字符的问题。

mitaro 2003-12-10 09:16:46
请问谁有实现以下功能的PB代码?

读取文本文件中某行第几个到第几个字符到string变量
...全文
392 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
likecoco99 2003-12-11
  • 打赏
  • 举报
回复
学习~~~~~~~
poemlake 2003-12-11
  • 打赏
  • 举报
回复
我翻了pfc,找到了一个实现在办法
用到的对象n_base pfc_n_base pfc_n_cst_string n_cst_string

函数of_parsetoarray( as_source,as_delimiter, string as_array)
这个函数的功能是把一个长字符串按分隔符分成数组,你所要的第n行的字符就是as_array[n]
然后再通过mid取出 as_array[n]中的某个字符。

具体实现方法,你得到整个文件的字符串,把字符串传给上面的函数的参数as_source,然后,你取出一行,看一看分隔符是什么,把分隔符再传给上面的函数的as_delimiter,定义一个数组as_array,上面的函数会把字符按分隔符分成数组存入as_array
CodeMagic 2003-12-11
  • 打赏
  • 举报
回复
给你实现代码:

String Str,Final_Str
Int Handle,Row,From_Pos,To_Pos,i

//变量说明:Row代表要取字符串所在的行数,From_Pos代表字符串的起始位置
//To_Pos代表字符串的终止位置,Final_Str存放最终要得到的字符串

i=0
Handle=FileOpen('文件名称',LineMode!,Read!)
If Handle=-1 Then Return

Do While True
If FileRead(Handle,Str)<0 Then
MessageBox('Error','所要的行不存在')
Return
End If

i++
If i=Row Then Exit
Loop

Final_Str=Mid(Str,From_Pos,To_Pos -From_Pos+1)
CodeMagic 2003-12-10
  • 打赏
  • 举报
回复
这点问题都解决不了,还写什么程序,不行的话,明天中午给你个程序。
mitaro 2003-12-10
  • 打赏
  • 举报
回复
依照你的指示看了一下pb8参考手册,要实现起来很复杂很复杂。我快昏死了。
klbt 2003-12-10
  • 打赏
  • 举报
回复
没有现成的,只能自己编码,用fileread函数,行模式

1,108

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧