Question

vb如何区分读进去的是0 还是 空值

我从txt文件中读数据，比如说数据如下
9，1，6，4
2， ，3, 8
那么输出的时候如何能变成
9，1，6，4
2，-999.9 ，3, 8
这个样子呢？
也就是说如何把没有数据的替换为-999.9，而不是0
原数据也有可能会为0，但是不能替换为-999.9，而且我这里是为了好看，所以用空格代替了，原始数据是没有空格的。

Answer 1

For i = 0 to Len(TXT)
If Mid(TXT, i, 1）=" " Then '输出为-999.9
next

追问

关键是如何输出呢？
就是
mid（txt,i,1） = "-999.9"
是这样的吗？
而且If Mid(TXT, i, 1）=" " Then直接就报错啊！！！

追答

这得看你输出到哪，比如输出到TEXT，那就是：
For i = 0 to Len(TXT)
If Mid(TXT, i, 1）=" " Then
text1.text=text1.text & "-999.9"
else
text1.text=text1.text & Mid(TXT, i, 1）
end if
next

追问

比如说我要输出到另外一个txt文档当中呢？还有就是For i = 0 to Len(TXT)中的TXT是路径还是什么？

追答

Dim TextLine, TXT As String 'TXT为字符串，用于保存从E:\1.txt获取的数据
Dim TXT1 As String 'TXT1为字符串，用于保存数据替换后的文本

Open "E:\1.txt" For Input As #1 '从E:\1.txt获取数据
Do While Not EOF(1)
Line Input #1, TextLine
TXT = TXT & TextLine
Loop
Close #1

'原数据也有可能会为0，但是不能替换为-999.9，而且我这里是为了好看，所以用空格代替了，原始数据是没有空格的
'那原数据是有 逗号 的吧？
TXT=Raplace(TXT,",,",", ,")
'或者TXT=Raplace(TXT,",,",",-999.9,")，然后直接将TXT写入到另一个文本文档

For i = 0 to Len(TXT) '替换
If Mid(TXT, i, 1）=" " Then
TXT1=TXT1 & "-999.9"
else
TXT1=TXT1 & Mid(TXT, i, 1）
end if
next

Open "E:\2.txt" For Output As #1 '写入到E:\2.txt
Print #1, TXT1
Close #1

追问

If Mid(TXT, i, 1）=" " Then
这一句报：无效的过程调用或参数是怎么回事呢？

追答

哦，是我错了For i = 0 to Len(TXT) 应该是 For i = 1 to Len(TXT)
其实用不到这一段，你直接用下面这段就行
Dim TextLine, TXT As String

Open "E:\1.txt" For Input As #1 '
Do While Not EOF(1)
Line Input #1, TextLine
TXT = TXT & TextLine
Loop
Close #1

TXT = Replace(TXT, ",,", ",-999.9,")

Open "E:\2.txt" For Output As #1 '写入到E:\2.txt
Print #1, TXT
Close #1

追问

但是有一个问题啊，源数据是一行一行的，但是生成的数据没有分行啊，我在后面加了vbcr也不行啊！！！新手，问题多，别烦哈！！！

追答

我不是回答了吗？怎么没有了

Dim TextLine, TXT As String

Open "E:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
TXT = TXT & TextLine & vbCrLf
Loop
Close #1

TXT = Replace(TXT, ",,", ",-999.9,")

Open "E:\2.txt" For Output As #1
Print #1, TXT
Close #1

追问

额，还有一个问题，假如一行数据为
，，，，
但是程序运行出来以后就只有
0，-999.9，0，-999.9，0
但是实际上应该是五个-999.9呢。

追答

Dim TextLine, TXT As String

Open "E:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
If Left(Trim(TextLine), 1) = "," Then TextLine = "-999.9" & TextLine
If Right(Trim(TextLine), 1) = "," Then TextLine = TextLine & "-999.9"
TXT = TXT & TextLine & vbCrLf
Loop
Close #1

Do While InStr(TXT, ",,") > 0
TXT = Replace(TXT, ",,", ",-999.9,")
Loop

Open "E:\2.txt" For Output As #1
Print #1, TXT
Close #1