如何判断一个文件是否被别的程序打开

2003-09-15 01:56:22 309 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

如何更好的理解PFC（功率因数校正）此电路虽然简单，可以在前期设计的无PFC功能的设备上，简单的增加一个合适的电感（适当的选取L和C的值），从而达到具有PFC的作用，但是这种简单的、低成本的无源PFC输出纹波较大，滤波电容两端的直流电压也较低，电流畸变的校正及功率因数补偿的能力都很差，而且L的绕制及铁芯的质量控制不好，会对图像及伴音产生严重的干扰，只能是对于前期无PFC设备使之能进入市场的临时措施。）在t4~t5期间尽管二极管左边电压在逐步上升，但是由于二极管右边的Uc放电缓慢右边的电压Uc仍旧大于左边，二极管仍旧反偏截止。阅读详情

比如一个文本文件,
我做过实验,在一个程序中写入文本文件,在另一程序中读取不会出错
程序1
Dim myRecord As Record
Open filePathName For Random As #1 Len = Len(myRecord)

For RecordNumber = 1 To 5
myRecord.ID = RecordNumber
myRecord.Name = "My Name" & RecordNumber
Put #1, RecordNumber, myRecord
MsgBox "ok" '
Next RecordNumber

Close #1

程序2

Dim i As Integer
Dim recordCounts As Integer
Dim tempRecord As Record
On Error GoTo line1

Open filePathName For Random As #1 Len = Len(tempRecord)
recordCounts = LOF(1) / Len(tempRecord)

For i = 0 To 5

Get #1, , tempRecord
Next
Close #1
Exit Sub
line1:
DoEvents
Resume

...全文