一个例题中的删除随机文件中的记录,我错在那里？

Question

我刚才突然想通了,是文件号的问题!但现在又有一个新问题,我发现我的这个删除功能能删除记录中的内容,但删除不了txtnum中的记录号,不知道这是为什么? 谢谢!

Answer 1

//但现在又有一个新问题,我发现我的这个删除功能能删除记录中的内容,但删除不了txtnum中的记录号,不知道这是为什么? 谢谢!你没写相应的代码,当然删除不了

Answer 2

to:rainstormmaster建立一个临时文件tempfile,把原文件address中不删除的记录一条条的
复制到临时文件中，然后删除原文件(kill address)　重新命名昨时文件为address我想不出我的思路错在那里，代码我也反复看了很多遍了，但我程序的确运行的不对，比如原文件中是5个记录，我删了一个，应当是4个记录，但还是会有5个记录文件里，虽然里面的内容没有了．

Answer 3

我刚才看了一下
Debug.Print readnum, writenum
发现一个问题 我其实只写了12个记录，可是却循环了13次，
我打开文件cmdopen中有这么一段代码：
recnum = lof(filenum) \ reclength + 1　　　；得到添加的记录号
txtnum.text = str(recnum)　　　　　　　　　；记录号文本框显示内容
txtname.setfocus                            
这难道就是我把疑所的第13个记录吗？
循环最后一次是把记录号为13的空白内容复制到我的临时文件夹里面了．我所以
就算能删除记录的内容，也删不掉文件的长度，本来是12个记录，我最后还是12个空白
的记录．．．．．．．．．．．有什么方法，可以解决吗？