vb 写入文本

根据我的对这个问题的理解,你应该是学习过VB的,那么你应该知道TXT文本里的内容不管是什么,它都是字符串(由一个个字符组成),那就你设一个变量,然后用取单字符函数从TXT文本中读取符,当读到"="时,说明后面就是数字,把数字全部读出(遇到非数字或结束标志即完成读取工作)并连接成字符串,再通过字符串转数字函数,即可得到数字.

这个方法比较烦.

如果我你的TXT文件仅存一个asd的值为12的话,那就更简单了，你可以将TXT文件名直接取名为asd，TXT文件内容直接就是12，然后在读取时就将内容全部读出，转成数字即可。

给你三种方法
strl = "asd=12"
Dim a() As String
MsgBox Right(strl, Len(strl) - InStr(strl, "="))

MsgBox Mid(strl, InStr(strl, "=") + 1, Len(strl))

a = Split(strl, "=")
MsgBox a(UBound(a))