7,762
社区成员
发帖
与我相关
我的任务
分享如何删除文件中的一条记录？
我的文件（myfile.dat)中有10条记录（RecordNo为1-10），我想删除其中的一条，然后RecordNo按1-9排列，不知如何操作，请高手指教。
...全文
请发表友善的回复…
发表回复
PiggyXP 2003-02-10
- 打赏
- 举报
你这样数据量很小，是无所谓的
twinking 2003-02-10
- 打赏
- 举报
必须要重写了
missbo 2003-02-10
- 打赏
- 举报
有呀，建一个类，成员就是你所有记录中的成员，再用VB向导生成一个集合类，基于这一个类，这样增删改就方便了。但是最终还是重写文件。当然此时不要临时文件了。
13161795500 2003-02-09
- 打赏
- 举报
UP!抢分！
mikekong 2003-02-08
- 打赏
- 举报
难道就真的没有简单的办法了吗？
mikekong 2003-02-08
- 打赏
- 举报
up
mikekong 2003-02-08
- 打赏
- 举报
谢谢这为大哥，但要新建临时文件好象比较繁，难道没有简单的命令？
minajo21 2003-02-08
- 打赏
- 举报
就是重写
minajo21 2003-02-08
- 打赏
- 举报
Private Type info
Name As String * 20
Value As String * 40
End Type
Private Sub cmdDel_Click()
On Error Resume Next
Dim A As info
Dim sum As Integer, i As Integer, Count As Integer
Count = 0
Open "tempfile.dat" For Random As #2 Len = Len(A)
Open "myfile.dat" For Random As #1 Len = Len(A)
sum = LOF(1) \ Len(A)
For i = 1 To sum
If i <> 8 Then 'No. you want kill
Count = Count + 1
Get #1, i, A
Put #2, Count, A
Else
msgbox "killed!"
End If
Next i
Close #1, #2
Kill "myfile.dat"
Name "tempfile.dat" As "myfile.dat"
End Sub
Name As String * 20
Value As String * 40
End Type
Private Sub cmdDel_Click()
On Error Resume Next
Dim A As info
Dim sum As Integer, i As Integer, Count As Integer
Count = 0
Open "tempfile.dat" For Random As #2 Len = Len(A)
Open "myfile.dat" For Random As #1 Len = Len(A)
sum = LOF(1) \ Len(A)
For i = 1 To sum
If i <> 8 Then 'No. you want kill
Count = Count + 1
Get #1, i, A
Put #2, Count, A
Else
msgbox "killed!"
End If
Next i
Close #1, #2
Kill "myfile.dat"
Name "tempfile.dat" As "myfile.dat"
End Sub
