|
3#
楼主 |
发表于 2010-10-20 19:45:30
|
只看该作者
再详细一点:
Do Until EOF(hfile)
If InStr(1, strLine, "HARDWARE SUPPORTED MAXIMUM TRX CAPACITY :", 1) > 0 Then
BSC_TRX_CAPACITY = Trim(Mid(strLine, 42))
Exit Do
'BSC_TRX_CAPACITY = 2500
End If
If BSC_TRX_CAPACITY = 0 Then BSC_TRX_CAPACITY = 512
If BSC_TRX_CAPACITY = 512 Then BSC_TYPE = "BSC2i"
If BSC_TRX_CAPACITY = 660 Then BSC_TYPE = "BSC3i"
If BSC_TRX_CAPACITY = 2500 Then BSC_TYPE = "FlexiBSC"
BSC_TCH_CAPACITY = BSC_TRX_CAPACITY * 8
Loop
在这里跳出循环后需要重新到文件头,进行另外的操作
Do Until EOF(hfile)
.....
Loop
|
|