打开txt文件并读取它并使用vb6将其保存在数据库中

时间:2009-11-24 18:13:20

标签: vb6

我有一个问题要问你。我有一个文本文件。(文件将在测试服务器中)我需要读取该文件并将其存储在数据库中。在这个我必须读取行,如果该行以“6”开头。其他明智的离开它。 例如,在该dne文件中,如果行以6开头,则读取该行,如果第二行以7开头,则不读取它。离开那条线。如果第三个6再次读取该行。

如果该行以6开头,那么我不想读整行。

我想从第04-11位读取rtn数字(长度= 8)

我想从第13-29位读取行为号(长度= 17)

我想从位置30-39读取为amt(长度= 10)

我想从位置55-76读取名称(长度= 22)

之后将其分配给记录集并将其存储在数据库中。这应该做到文件结束。

有人能为我提供如何在vb6中执行此操作的代码吗?

2 个答案:

答案 0 :(得分:1)

这听起来像是一个家庭作业问题,我想我们很多人都对回答这个问题犹豫不决,因为这是基本的东西。这个网站是为了寻求和提供帮助,而不是让别人为你做这项工作。从您发布的内容来看,您似乎希望有人只是执行代码并将其提供给您。你不会在这里得到它。

然而,我们大多数人都喜欢帮助,就像我想的那样。

本着这种精神,我会给你一些链接,指出你正确的方向,以便你可以解释必要的概念,你可以从那里去。


http://www.google.com/search?q=vb6+read+a+fixed+width+file&rls=com.microsoft:en-us&ie=UTF-8&oe=UTF-8&startIndex=&startPage=1


http://www.google.com/search?hl=en&safe=active&rls=com.microsoft%3Aen-us&q=vb6+if+statements&aq=f&oq=&aqi=

答案 1 :(得分:0)

Mid $是你的朋友。只需读取每一行并使用Mid $从所需位置读取一个或多个字符例如

TempS = "Hello World"
Print Mid$(Temps, 2,3)

结果将是'ell'

其余的应该是直截了当的。