VB 字符串做变量

Question

tiaojian.dat 文件的内容为
 H51839
 569 
 H52203
 546 
 T51886
-27 
 T52652
-30 
...
等若干行用下面程序读文件
Open "tiaojian.dat" For Input As 1
Input #1, jilu1               读后 jilu1为 H51839 是字符串"H51839"
Input #1, jilu2                    jilu2为 569    是数值
   
应该怎样做才能将jilu2的值赋给jilu1中的字符串, 把字符串"H51839"作为变量
即H51839 = 569 ，然后用于下面语句中 If H51839 > 0 Then
...
Print #2, "aaaaaaaa"
...
End If请高手帮帮忙，谢谢！

Answer 1

我很是不解，LZ为什么一定要把字符串"H51839"作为变量，它本身就是jilu1这个变量的值啊。
你为什么不直接在代码里用类似如下的语句呢？
jilu1 = jilu2
If jilu1 > 0 Then Print "大于零"

Answer 2

首先,处理文件的写入和读出时要使用Write和Input,写入和读出的时候都是一对一对的
    Input #1,aa,bb
    Write #1,"H51839",nn
我们把aa当中的值看作为"键",把bb当中的值看作为这个"键"的"值"
然后可以这样处理
select case aa
case "H51839"
   '关于这个键的相关代码
case "...."
   '其它相关代码
....
end select这样就实现了这个功能了在VB当中不可能把一个字符串变成变量的,只能用其它办法解决

Answer 3

楼主摆了个烂摊子让大家收拾~ LZ不是我说你 你简直就是侮辱编程(迷:为啥学VB大多都这水平,让人哭笑不得)

Answer 4

ayalicer(小刀惋心)，难道你编程好一些就可以随便侮辱人吗，你连做人的基本道理都不懂，就算编程好也只是垃圾。

Answer 5

While Not EOF(1)
        Input #1, str1, str2
        If str1 = "H51839" And str2 > 0 Then
...
        End If
    Wend

Answer 6

大概我没说清楚
tiaojian.dat文件有很多行，不是我写的，是已经有了的，我要做的是把每两行中第一行字符作为变量名，然后把第二行的值赋给它。
这些被赋值后的变量在下面的程序中还要做运算等处理。

Answer 7

呵呵,是楼主自己表述的不清楚
ayalicer(小刀惋心) 是很热忱的,不是还帮你出主意了吗
zhhykhld 说的对,用二维数组吧,应该能解决楼主只要说出要达到什么目的或者结果,就会有热心网友帮你的,
而不是你想的莫名其妙的方法,有想法当然好,但要根据实际吧,
LZ暂时对VB还不熟悉,以后你熟悉了,再看看这个贴,自己都要笑半天

Answer 8

ayalicer(小刀惋心) ：何为侮辱编程？　编程其实只是一个工具而已！！　不管使用这个工具的人平如何，我看来只有能否灵活运用与否和思路好坏之说....何来侮辱之说？

Answer 9

如果是VFP,应该可以实现
VB就不要想了

Answer 10

如果是VFP,应该可以实现
VB就不要想了
-------------
是的,vfp中可以用宏代换来实现,可是vb中没有类似的方法.

Answer 11

看样子我太懒了，所以搞得大家没看明白，实在不好意思。是这样的
有很多这样的条件判断语句在 guize6.txt 文件中
Sfx56046 >= 20 And Sfx56046 <= 200
Sfx56065 >= 20 And Sfx56065 <= 200
H52866 >= 4 
H52889 >= 4 
...
我将上述条件判断语句读入程序用 StringCalc.Eval( ) 执行 
可这些这些语句中变量的值却在 tiaojian.dat 文件中，因两个文件中语句数量太多，
要逐句编写赋值语句和条件判断语句那工作量太大，故而请求高手帮助，
因我的懒惰而使得大家没看明白我在这里表示歉意，还请大家帮帮我，谢谢了！！！

Answer 12

Open "tiaojian.dat" For Input As 1应为：
Open "tiaojian.dat" For Input As #1