VB 可以修改HTML吗

Question

菜鸟问问啊  不要介意啊 因为OPEN    PRINT  方面没学好 呼呼
有一个55.HTML （与程序放在同一文件夹内)
我要修改指定的几个数字 (指用记事本打开)
在第13行 第五个数字开始 
VB要求 
放一个TEXT 一个按钮 把数字输入到TEXT里 按一下按钮 那么我55.HTML里的那个东西就被修改了 
例子 
文件55.HTML 用记事本打开 原先第13行 第五个字符开始为：12121 然后我在VB那个TEXT里输入：78789 按下按钮 此时再用记事本打开55.HTML 发现 那个先前的12121已经被修改成了78789 结束 请问这样的功能可以实现么 
教教我哈  最好给出代码么 
谢谢 谢谢   给出具体代码者   本人还可以赠送知道或者问问的积分谢谢哈

Answer 1

 Private Sub Command1_Click()
Open "C:\55.html" For Input As #1
b = ""
Do Until EOF(1)
Line Input #1, nextline
b = b & nextline & Chr(13) & Chr(10)
Loop
Close #1
For i = 0 To 13
p = InStr(p + 1, b, vbCrLf)
Nexts = Left(b, p + 6) & Trim(Text1.Text) & Right(b, Len(b) - p - 12)
 Open "C:\55.html" For Output As #1   Print #1, s   Close #1
End Sub

Answer 2

大哥啊   请你再解释下嘛b = b & nextline & Chr(13) & Chr(10)这个13 为13行  10 为  第五个数字开始  一个数字为2个字符  这个对么那么下面呢s = Left(b, p + 6) & Trim(Text1.Text) & Right(b, Len(b) - p - 12)这里的数字是什么意思呢 如果我是  第30行    第10个数字 开始 需要改6个数字呢 怎么弄 啊为什么我照猫画虎不行勒  教教我

Answer 3

 Left(b, p + 6) 这个偶看懂的 就是从第六个开始写 Right(b, Len(b) - p - 12)这个偶不懂唉   我只有5+5一共10个数字啊     怎么会有个12呢 教教我

Answer 4

b = b & nextline & Chr(13) & Chr(10) ---每次加一行,将整个文件,串成一个字串
s = Left(b, p + 6) & Trim(Text1.Text) & Right(b, Len(b) - p - 12) 
p是第14个换行符位置,加6将14行加第15行前5个字符取出
Len(b) - p - 12) 是你15行替换掉的字符后面的

Answer 5

晕。这样理解也行？
chr(13)是回车符
chr(10)是换行符
这行代码的作用是将指定文件的内容赋值给变量b。每次读取一行你不只是OPEN  PRINT没学好

Answer 6

 Chr(13) & Chr(10) 是回车换行符,和vbCrlf等价,10,13是ASCII码

Answer 7

喔HOH  嘎嘎 
那我知道了嘛Chr(13)是回车   对喔  以前用回车作为快捷键就是这个的   呼呼 一时之间忘了吗，。我吧CHR当作是一个字符了么 嘎嘎是这样拉 偶已经毕业2年了 读书时学过VB  不过这2年根本就没动VB   所以  忘的差不多了嘛，，你们因该要见谅见谅丫洗洗反正就是将原来的12121 前后的都取出,从中间将你要换的加上就行了这句话一听么偶叫懂勒，，所以丫 需要老师来教教吗 ，。
谢谢拉谢谢