Question

求教——delphi数字和字符串混合在一起的数据读取

我现在有一个txt的数据文件，每一行的数据格式如下：
209592000;2008-01-01 09:53:11;0;0;210;30;100;71;0;1;
第一个是数字，然后是一个分号，再是一个时间的字符串，然后是分号和数字
我用readln这个函数时，readln(ff,x,ch1,str0,ch2,a,ch3,b,ch3....)为什么不行呢/
x,a,b是integer, ch1,ch2,ch3....是string[1],str0是string[19]。
各位高手指点下应该怎么读取方便啊？

Answer 1

不要拘泥于比较规范的代码。先要看读取这数据的目的是什么？我看这数据像是一条数据记录信息，只是没有字段名而已。如果想把这些数据读取出来，显示到界面上的话，比如门诊号是209592000，就诊时间是2008-01-01 09:53:11，等等，比喻而已；那么代码这样写更简单；
tex:=txt的数据文件.行数.字符串；
显示门诊号的组件（edit或者label组件都可以）:=copy(tex,1,9);
显示就诊时间的组件）:=copy(tex,10,18);
.......如此取完全部数据
txt的数据文件每一行的数据格式是一致的，长度也是一致的，所表示的内容应该也是一致的，因此直接用copy函数取数据，应该比langjilife的代码更简单。
我认为写代码不必死死的抱着delphi的例子不放，他们也是人，咱也是人，不兴咱也来点新鲜的。比如很多delphi的函数，我就自己写。用起来顺手。自己写的东西，出了错可以马上知道错在那里了。

追问

每行的数据格式是一致的，但是长度不一致。我现在的方法是和langjilife的差不多，先把一行的数据读给一个字符串str，然后从每个位置分析，每个分号前的一段字符串读出来付给一个变量。暂时只能想到这样的方法。不知道有更简便的没?

追答

如果这个数据是你自己组织的，那就好办了，把分隔符改一下，用....成对的字符串来代替分号。如，这样组织数据后，取数据时用一个取两个已知字符串中间的未知字符串的函数，来取字符串并完成赋值。如果这txt的数据文件不是你弄的，那就算我白说了。取中间字符函数写起来很简单，我有现成的，十几行代码，你要我就发给你。

追问

数据文件不是我弄得。。

追答

那就老老实实的1个分号1个分号的来自理吧，我看没有其它办法了

Answer 2

readln(ff,str);
m:=pos(';',str);
x:=copy(str,1,m-1);
str:=copy(str,m+1,length(str)-m);
m:=pos(';',str);
ch1:=copy(str,1,m-1);
str:=copy(str,m+1,length(str)-m);
……
……