| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2621 人关注过本帖
标题:读取文件并保存到另一文件里面(用VB)
取消只看楼主 加入收藏
ship118
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2007-9-1
收藏
 问题点数:0 回复次数:19 
读取文件并保存到另一文件里面(用VB)

现在我是想把此TXT文件读取出来(这个我已实现),但是我还想在读取此文件后,能把字符串中的空格全去掉,并且在每行的开头一次加上序列号,依次为:N0002,N0004,N0006(以2为阶)。我还发现这个文件虽然这么多行,但是它分为了好多部分,而且每部分都是以:
“G00 X1508.00 Y714.31
G41
M07
G03 X12.00 Y12.00 I.00 J12.00
G01 X.00 Y173.69
G03 X-498.00 Y.00 I-249.00 J.00
G01 X.00 Y-200.00
G03 X498.00 Y.00 I249.00 J.00
G01 X.00 Y26.31
G03 X-12.00 Y12.00 I-12.00 J.00
M08
G40”
每部分开头都有“G00”,下一行是“G41”和“M07”最后两行是“M08”和“G40“
现在我就不懂如何实现我上面说的”在每行的开头一次加上序列号,依次为:N0002,N0004,N0006(以2为阶)“

我编的读取文件程序如下:
Private Sub Command1_Click()
Open "c:\1.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Do Until EOF(1)
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1Text1.Text = Lines
End Sub

谢谢各位了。
我的邮箱是:lumindiyi@163.com




BVNgyiy7.txt (5.4 KB) 读取文件并保存到另一文件里面(用VB)

搜索更多相关主题的帖子: 文件 保存 
2007-09-03 07:41
ship118
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2007-9-1
收藏
得分:0 

好像附件又没有传上去。文件内容如下:
G21
G91
G92 X0 Y0
F650
G00 X1508.00 Y714.31
G41
M07
G03 X12.00 Y12.00 I.00 J12.00
G01 X.00 Y173.69
G03 X-498.00 Y.00 I-249.00 J.00
G01 X.00 Y-200.00
G03 X498.00 Y.00 I249.00 J.00
G01 X.00 Y26.31
G03 X-12.00 Y12.00 I-12.00 J.00
M08
G40
G00 X-1422.39 Y-725.76
G41
M07
G01 X-1.68 Y.76
G03 X-20.51 Y54.37 I-73.93 J3.17
G03 X-54.43 Y22.79 I-53.43 J-51.20
G01 X.00 Y1450.54
G03 X35.65 Y14.34 I1.00 J48.99
G03 X14.34 Y35.65 I-34.65 J34.65
G01 X770.92 Y.00
G01 X15.59 Y-15.59
G01 X.00 Y-221.42
G03 X.50 Y-47.99 I.50 J-23.99
G01 X47.00 Y.00
G03 X24.00 Y24.00 I.00 J24.00
G01 X.00 Y261.00
G01 X762.91 Y.00
G01 X15.59 Y-15.59
G01 X.00 Y-221.42
G03 X.50 Y-47.99 I.50 J-23.99
G01 X47.00 Y.00
G03 X24.00 Y24.00 I.00 J24.00
G01 X.00 Y261.00
G01 X380.00 Y.00
G01 X.00 Y-11.00
G03 X24.00 Y-24.00 I24.00 J.00
G01 X37.50 Y.00
G01 X38.50 Y.00
G01 X.00 Y-1512.00
G01 X-76.00 Y.00
G03 X-24.00 Y-24.00 I.00 J-24.00
G01 X.00 Y-11.00
G01 X-376.00 Y.00
G01 X.00 Y281.00
G03 X-24.00 Y24.00 I-24.00 J.00
G01 X-51.00 Y.00
G03 X-.50 Y-47.99 I.00 J-24.00
G01 X.00 Y-241.42
G01 X-15.59 Y-15.59
G01 X-758.91 Y.00
G01 X.00 Y281.00
G03 X-24.00 Y24.00 I-24.00 J.00
G01 X-51.00 Y.00
G03 X-.50 Y-47.99 I.00 J-24.00
G01 X.00 Y-241.42
G01 X-15.59 Y-15.59
G01 X-559.33 Y.00
G02 X-185.42 Y3.28 I.00 J5246.82
G01 X-5.35 Y-2.84
M08
G40
G00 X3677.97 Y620.67
G41
M07
G03 X14.58 Y8.68 I2.95 J11.63
G03 X7.64 Y61.21 I-241.36 J61.21
G01 X.00 Y200.00
G03 X-498.00 Y.00 I-249.00 J.00
G01 X.00 Y-200.00
G03 X490.36 Y-61.21 I249.00 J.00
G03 X-8.68 Y14.58 I-11.63 J2.95
M08
G40
G00 X-1431.97 Y-644.08
G41
M07
G01 X-1.21 Y.71
G03 X-22.17 Y52.33 I-74.00 J-.50
G03 X-53.33 Y21.67 I-52.33 J-52.33
G01 X.00 Y661.01
G01 X161.00 Y.00
G03 X24.00 Y24.00 I.00 J24.00
G01 X.00 Y31.00
G03 X-47.99 Y.50 I-24.00 J.00
G01 X-121.42 Y.00
G01 X-15.59 Y15.59
G01 X.00 Y724.92
G03 X35.65 Y14.34 I1.00 J48.99
G03 X14.34 Y35.65 I-34.65 J34.65
G01 X730.01 Y.00
G01 X.00 Y-261.00
G03 X24.00 Y-24.00 I24.00 J.00
G01 X47.00 Y.00
G03 X.50 Y47.99 I.00 J24.00
G01 X.00 Y221.42
G01 X15.59 Y15.59
G01 X762.91 Y.00
G01 X.00 Y-261.00
G03 X24.00 Y-24.00 I24.00 J.00
G01 X47.00 Y.00
G03 X.50 Y47.99 I.00 J24.00
G01 X.00 Y221.42
G01 X15.59 Y15.59
G01 X770.92 Y.00
G03 X14.34 Y-35.65 I48.99 J-1.00
G03 X35.65 Y-14.34 I34.65 J34.65
G01 X.00 Y-1450.54
G03 X-54.43 Y-22.79 I-1.00 J-73.99
G03 X-20.46 Y-55.35 I53.43 J-51.20
G02 X-186.70 Y-3.32 I-186.69 J5243.49
G01 X-559.33 Y.00
G01 X-15.59 Y15.59
G01 X.00 Y241.42
G03 X-.50 Y47.99 I-.50 J23.99
G01 X-51.00 Y.00
G03 X-24.00 Y-24.00 I.00 J-24.00
G01 X.00 Y-281.00
G01 X-758.91 Y.00
G01 X-15.59 Y15.59
G01 X.00 Y241.42
G03 X-.50 Y47.99 I-.50 J23.99
G01 X-51.00 Y.00
G03 X-24.00 Y-24.00 I.00 J-24.00
G01 X.00 Y-281.00
G01 X-699.73 Y.00
G01 X-5.25 Y-3.03
M08
G40
G00 X3937.98 Y694.94
G41
M07
G03 X12.00 Y12.00 I.00 J12.00
G01 X.00 Y187.09
G03 X-398.00 Y.00 I-199.00 J.00
G01 X.00 Y-200.00
G03 X398.00 Y.00 I199.00 J.00
G01 X.00 Y12.91
G03 X-12.00 Y12.00 I-12.00 J.00
M08
G40
G00 X-1386.29 Y-715.61
G41
M07
G01 X-1.21 Y.71
G03 X-22.17 Y52.33 I-74.00 J-.50
G03 X-53.33 Y21.67 I-52.33 J-52.33
G01 X.00 Y661.01
G01 X161.00 Y.00
G03 X24.00 Y24.00 I.00 J24.00
G01 X.00 Y31.00
G03 X-47.99 Y.50 I-24.00 J-.01
G01 X-121.42 Y.00
G01 X-15.59 Y15.59
G01 X.00 Y724.92
G03 X35.65 Y14.34 I1.00 J48.99
G03 X14.34 Y35.65 I-34.65 J34.65
G01 X730.01 Y.00
G01 X.00 Y-261.00
G03 X24.00 Y-24.00 I24.00 J.00
G01 X47.00 Y.00
G03 X.50 Y47.99 I.00 J24.00
G01 X.00 Y221.42
G01 X15.59 Y15.59
G01 X762.91 Y.00
G01 X.00 Y-261.00
G03 X24.00 Y-24.00 I24.00 J.00
G01 X47.00 Y.00
G03 X.50 Y47.99 I.00 J24.00
G01 X.00 Y221.42
G01 X15.59 Y15.59
G01 X770.92 Y.00
G03 X14.34 Y-35.65 I48.99 J-1.00
G03 X35.65 Y-14.34 I34.65 J34.65
G01 X.00 Y-1364.71
G03 X-57.86 Y-26.64 I-1.00 J-73.99
G03 X-15.73 Y-61.74 I56.86 J-47.36
G02 X-432.13 Y-58.58 I-938.23 J5297.80
G02 X-207.73 Y-15.07 I-449.87 J4761.26
G02 X-107.57 Y-4.04 I-208.20 J4106.57
G01 X-15.49 Y15.17
G01 X.00 Y241.40
G03 X-.50 Y47.99 I-.50 J23.99
G01 X-51.00 Y.00
G03 X-24.00 Y-24.00 I.00 J-24.00
G01 X.00 Y-281.78
G02 X-9.63 Y-.01 I-9.69 J4111.83
G01 X-749.28 Y.00
G01 X-15.59 Y15.59
G01 X.00 Y241.42
G03 X-.50 Y47.99 I-.50 J23.99
G01 X-51.00 Y.00
G03 X-24.00 Y-24.00 I.00 J-24.00
G01 X.00 Y-281.00
G01 X-699.73 Y.00
G01 X-5.25 Y-3.03
M08
G40
G00 X2710.06 Y615.89
G41
M07
G03 X-14.88 Y8.15 I-11.52 J-3.37
G03 X-143.20 Y-191.02 I55.80 J-191.02
G01 X.00 Y-100.00
G03 X398.00 Y.00 I199.00 J.00
G01 X.00 Y100.00
G03 X-254.80 Y191.02 I-199.00 J.00
G03 X-8.15 Y-14.88 I3.36 J-11.52
M08
G40
G00 X-195.04 Y-605.13
G41
M07
G01 X-1.00 Y-1.41
G01 X-8.21 Y8.21
G01 X-7.79 Y7.79
G01 X.00 Y728.83
G01 X7.79 Y7.79
G01 X7.79 Y7.79
G01 X520.83 Y.00
G01 X7.79 Y-7.79
G01 X7.79 Y-7.79
G01 X.00 Y-728.83
G01 X-7.79 Y-7.79
G01 X-7.79 Y-7.79
G01 X-520.15 Y.00
G01 X-5.25 Y-3.03
M08
G40
G00 X198.69 Y925.76
G41
M07
G03 X7.95 Y-14.99 I11.47 J-3.52
G03 X257.34 Y190.26 I58.34 J190.26
G01 X.00 Y100.00
G03 X-398.00 Y.00 I-199.00 J.00
G01 X.00 Y-100.00
G03 X140.66 Y-190.26 I199.00 J.00
G03 X14.99 Y7.95 I3.52 J11.47
M08
G40
G00 X-230.94 Y-132.41
G41
M07
G01 X-1.21 Y.71
G01 X-.50 Y728.41
G01 X7.79 Y7.79
G01 X7.79 Y7.79
G01 X520.83 Y.00
G01 X7.79 Y-7.79
G01 X7.79 Y-7.79
G01 X.00 Y-728.83
G01 X-7.79 Y-7.79
G01 X-7.79 Y-7.79
G01 X-520.83 Y.00
G01 X-7.79 Y7.79
G01 X-7.31 Y7.31
G01 X-5.85 Y1.57
M08
G40
G00 X5.85 Y-1.57
M02

2007-09-03 07:42
ship118
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2007-9-1
收藏
得分:0 
谢谢版主。
2007-09-03 10:07
ship118
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2007-9-1
收藏
得分:0 
回复:(slore)空格可以用replace函数字符串合并用 &...

谢谢版主,我现在已经能够实现空格的去除了。

2007-09-03 10:39
ship118
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2007-9-1
收藏
得分:0 
回复:(slore)空格可以用replace函数字符串合并用 &...
版主,现在解决了一个小问题了,现在还有就是现在我的文件有这么多行,但是现在我想在每行的开头增加几个字符,但是是递增的。就是从第二行开始,依次增加N0002,N0004,N0006,N0008,N0010,依次类推,一直增加到文件的最后一行,你说的那个只是打印在别的地方,我现在是想能加在文件里面,不知道怎么实现啊。
谢谢了。
版主最好能说清楚一点啊,谢谢了啊。
2007-09-03 10:57
ship118
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2007-9-1
收藏
得分:0 
呵呵,我说怎么输出到窗体上了呢,谢谢版主能细心的给我讲解,主要是新手啊,有些还不大熟悉。
非常感谢你。
2007-09-03 14:00
ship118
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2007-9-1
收藏
得分:0 
回复:(slore)我只是给你演示如何使用 字符串连接…...
实在是不好意思啊,又要忙烦楼主了,你说的那是知道了i的值,可我现在不知道i的值是多少啊。
那怎么使用你说的那个循环呢?而且怎么能把“N0002”增加到每行的开头呢,我实在是不知道怎么弄啊。
Private Sub Command1_Click()
Dim i As Integer
For i = 9 To 25
Print Format(i, "\N0000")
Next
End Sub
谢谢了。

[此贴子已经被作者于2007-9-3 16:56:23编辑过]

2007-09-03 15:47
ship118
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2007-9-1
收藏
得分:0 
回复:(ship118)回复:(slore)我只是给你演示如何...
Dim NextLine As String
Do Until EOF(1)
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = Lines
Text1.Text = Replace(Text1.Text, " ", "")
Text1.Text = Replace(Text1.Text, "G41", "M32M37")
Text1.Text = Replace(Text1.Text, "G40", "")
Text1.Text = Replace(Text1.Text, "M08", "")
Text1.Text = Replace(Text1.Text, "M07", "M36M00")
Text1.Text = Replace(Text1.Text, "M02", "M34M45M30")
Do While InStr(1, Text1, vbCrLf & vbCrLf)
Text1.Text = Replace(Text1.Text, vbCrLf & vbCrLf, vbCrLf)
Loop
End Sub

现在我已经实现到这里了,但是怎么能在每行前面加上“N0002,N0004......”呢?代码是什么啊。
2007-09-03 17:06
ship118
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2007-9-1
收藏
得分:0 
回复:(slore)[color=#000080]Option ExplicitPri...
版主,这个我知道啊,可是,原来我不是有这两个语句吗?
StrLines = Replace(StrLines, "G40", "")
StrLines = Replace(StrLines, "M08", "")
作用是去掉文件中G40,M08这些行,(他们有好多行,去掉后就出现了空行),然后我又使用了这个语句去掉空行:
Do While InStr(1, Text1, vbCrLf & vbCrLf)
Text1.Text = Replace(Text1.Text, vbCrLf & vbCrLf, vbCrLf)
Loop
可是现在按你给的那个,虽然我在前面加上了N0002,N0004.....,但是空行却没有去掉,而且它前面也增加了那些字符。现在就是能不能在先去掉空行的前提下在增加那些递增的数啊。
2007-09-04 07:44
ship118
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2007-9-1
收藏
得分:0 
好的,我知道了,谢谢阿
2007-09-04 14:08
快速回复:读取文件并保存到另一文件里面(用VB)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017347 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved