Question

VB程序删除文件中内容

我要在VB里面写入一个ini格式的文件，需要多次使用，就是写了一次之后再重新写，希望把上次的内容覆盖掉。还要考虑到本来文件不存在，用的是以下代码：
Open "e:\peirce平针坐标点.ini" For Append As #10
Close
Kill "e:\peirce平针坐标点.ini"
然后继续再打开，写入文件。但是发现这样写的话，假如另一个程序也在用这个ini文件，再运行这个程序，以上第三排代码删除文件的代码就会出错。现在想不要删除文件，直接删除所有里面的内容，再写入新的数据。求帮忙
如果代码简短可行，悬赏加倍。谢谢~~~

Answer 1

Open "e:\peirce平针坐标点.ini" For Input As #10
Close
这样就可以了
你用append那就是追加
你用input就是直接覆盖原来的内容
就没有你这个问题了

追问

Open "e:\peirce平针坐标点.ini" For Input As #10
Close
这样的话假如我原来没有这个文件就会提示文件未找到的错误。。这个问题怎么解决呢？
假如前面加两句，如下：
Open "e:\peirce平针坐标点.ini" For append As #10
Close
Open "e:\peirce平针坐标点.ini" For Input As #10
Close
结果我试了下还是叠加在原来数据上的。。。

追答

这个问题很好解决
你的工程通常不会只有一个文件，所以你可以手动创建一个e:\peirce平针坐标点.ini文件在指定位置。
如果你希望使用代码创建，那么在写入之前进行以下判断就可以了，代码如下：
If Dir("e:\peirce平针坐标点.ini")="" then
Open "e:\peirce平针坐标点.ini" For append As #10
Close
Else
Open "e:\peirce平针坐标点.ini" For Input As #10
Close
End If
你在试一下看看

追问

我希望我的代码在任何计算机上都可以运行~~
在写入文件之前的代码还是只能用append,用input会出错。。。我来试试txt文件的看看行不行
假如这样用还是叠加的呢。。。是不是ini文件的问题呢？

追答

我加了判断还不行么？
你先把e:\peirce平针坐标点.ini删掉在执行2次试一试

Answer 2

VB6操作INI文件的话,可以直接使用WindowsAPI,方便又快捷.声明如下:
Public Declare Function GetPrivateProfileString Lib "KERNEL32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "KERNEL32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long

你也可以百度一下VB操作INI的函数,网上很容易找到源码.