VB 可以修改HTML吗

[jainkai]

菜鸟问问啊 不要介意啊

因为OPEN PRINT 方面没学好

呼呼


有一个55.HTML （与程序放在同一文件夹内)
我要修改指定的几个数字 (指用记事本打开)


在第13行 第五个数字开始


VB要求
放一个TEXT 一个按钮

把数字输入到TEXT里 按一下按钮 那么我55.HTML里的那个东西就被修改了


例子
文件55.HTML 用记事本打开 原先第13行 第五个字符开始为：12121

然后我在VB那个TEXT里输入：78789 按下按钮

此时再用记事本打开55.HTML 发现 那个先前的12121已经被修改成了78789

结束

请问这样的功能可以实现么
教教我哈 最好给出代码么


谢谢 谢谢 给出具体代码者 本人还可以赠送知道或者问问的积分

谢谢哈

[SYSSZ]

 

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)


Next

s = 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

[jainkai]

大哥啊 请你再解释下嘛

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个数字呢 怎么弄 啊

为什么我照猫画虎不行勒 教教我

[jainkai]

Left(b, p + 6) 这个偶看懂的 就是从第六个开始写

Right(b, Len(b) - p - 12)这个偶不懂唉 我只有5+5一共10个数字啊 怎么会有个12呢

教教我

[SYSSZ]

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行替换掉的字符后面的

[爱我的人请呼吸]

[Quote=引用 2 楼 jainkai 的回复:]
大哥啊 请你再解释下嘛

b = b & nextline & Chr(13) & Chr(10)

这个13 为13行 10 为 第五个数字开始 一个数字为2个字符

这个对么
[/Quote]

晕。这样理解也行？


chr(13)是回车符
chr(10)是换行符
这行代码的作用是将指定文件的内容赋值给变量b。每次读取一行

你不只是OPEN PRINT没学好

[SYSSZ]

反正就是将原来的12121 前后的都取出,从中间将你要换的加上就行了,

[SYSSZ]

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

[SYSSZ]

初学,从基础学起,多学多看,多问,不要和我们比,我们都学了好多年了,也是一点一滴学来的

[SYSSZ]

那个12是因为我的测试里文件最后有空格

[jainkai]

喔HOH 嘎嘎


那我知道了嘛

Chr(13)是回车 对喔 以前用回车作为快捷键就是这个的 呼呼 一时之间忘了吗，。

我吧CHR当作是一个字符了么 嘎嘎

是这样拉 偶已经毕业2年了 读书时学过VB

不过这2年根本就没动VB 所以 忘的差不多了嘛，，

你们因该要见谅见谅丫

洗洗

反正就是将原来的12121 前后的都取出,从中间将你要换的加上就行了

这句话一听么偶叫懂勒，，

所以丫 需要老师来教教吗 ，。


谢谢拉

谢谢