Question

vb 如何写入文件第一行

主要麻烦的是不能使用output，不然会破坏文件结构
我想要做的就是在一个网页文件的第一行添加字体设置。。。但是没法在第一行内填入。现在用的是seek。但是seek会替换第1个字符。。。。。。。
Open c For Append As #1
Seek #1, 1
Print #1, "<font bgcolor='" & BBGColor & "'>"
Close #1
恩。。代码有点错了。。。。
Open c For Append As #1
Seek #1, 1
Print #1, "<font color='" & BBGColor & "'>"
Close #1
但是还是没办法解决替换。。。。。。。替换的话总是会出来一堆莫名奇妙的框框或者问号。。。。。

Answer 1

文件操作没办法只替换第一行，只能读出全部，再写回去。

追问

恩。。。我处理的是html文件。。。想改字体。。。。。有啥办法不。。。。。

追答

1. 读出全文
2. 在内存中处理
3. 把全部内容写回去。

追问

前面试过有效是有效。。但是这样的话会多出来一堆框框以及无法识别的问号。。。。。。。。。。。。。。。。。。。

追答

处理html是比较麻烦，要想保证正确，最好利用webbrowser 和IPersistFile接口来做。
1. 工程添加webbrowser控件
2. 下载ShellLink.tlb
地址（http://www.vbaccelerator.com/home/VB/Type_Libraries/ShellLink/ShellLink_Type_Library.asp）
3. 添加对ShellLink.tlb的引用
4. 加载html文件
webbrower.Navigate "文件路径"
5 设置属性值
webbrower.document. getElementById("xxid").setAttribute(sName, vValue [, iFlags])
6 最后保存html
Dim htmlSaveInterface As IPersistFileVB
Set htmlSaveInterface = WebBrowser1.Document
htmlSaveInterface.save "xxx.htm", False

Answer 2

这样

Dim s As String

Open c For Binary As #1
s = Input(LOF(1), 1)
Close #1

Open c For Output As #1
Print #1, "<font bgcolor='" & BBGColor & "'>" & vbCrLf & s
Close #1

追问

额。。。我处理的是html文件。。不知为啥一旦读入再写出就会出现一堆框框。。。。。。。。估计是字符问题。。。。。。。