| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1150 人关注过本帖
标题:请教,txt文件处理后内容格式变化的问题。
取消只看楼主 加入收藏
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
结帖率:70%
收藏
已结贴  问题点数:20 回复次数:0 
请教,txt文件处理后内容格式变化的问题。
比如一个文本里面格式如下(注意每行前面都有空格):
@123
    -1
    -5
    -10
@234
    -2
    -4
@345
    -3
    -8
经程序处理后(程序的目的是我输入一个数字,如果数字为@后面的字符串就删除@那行和下个@之前的那些行。比如我输入“234”,理想的输出文本内容应为:
@123
    -1
    -5
    -10
@345
    -3
    -8
但实际输出文本的内容如下,每行前面的空格没有了:
@123
-1
-5
-10
@345
-3
-8
请问程序中哪里需要修改?
附程序:
在窗体中添加下列代码并画上按钮控件command1和text1
程序代码:

Private Sub Command1_Click()
Dim FileRead As Integer
Dim FileWrite As Integer
Dim Str As String
Dim flag1, flag2 As Boolean
flag1 = False
flag2 = False
FileRead = FreeFile
If Dir(App.Path & "\" & "testfile.txt") <> "" Then
Open App.Path & "\" & "testfile.txt" For Input As FileRead

FileWrite = FreeFile
Open App.Path & "\" & "Tmp.txt" For Output As FileWrite
Do While Not EOF(FileRead)
If flag1 = False Then
Input #FileRead, Str
If InStr(Str, "@" & Text1.Text) <> 0 Then
flag1 = True
flag2 = False
Else
Print #FileWrite, Str
End If
Else
Input #FileRead, Str
If InStr(Str, "@") <> 0 And InStr(Str, "@" & Text1.Text) = 0 Then
flag2 = True
ElseIf InStr(Str, "@" & Text1.Text) <> 0 Then
flag1 = True
flag2 = False
End If
If flag2 = True Then
Print #FileWrite, Str
End If
End If
Loop
Close FileRead
Close FileWrite
Kill App.Path & "\" & "testfile.txt"
Name App.Path & "\" & "Tmp.txt" As App.Path & "\" & "testfile.txt"
Else
MsgBox "文件不存在!"
End If
End Sub


[此贴子已经被作者于2017-4-7 12:47编辑过]

搜索更多相关主题的帖子: 字符串 
2017-04-07 12:45
快速回复:请教,txt文件处理后内容格式变化的问题。
数据加载中...
 
   



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

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