|
【資料名稱】：CDD指令集
【資料作者】：stormtp
【資料日期】：20120101
【資料語言】：中文
【資料格式】：DOC
【資料目錄和簡介】：
CDD指令集合Dim parainline(1, 7) As String
Dim slinetemp As String
Dim par As String
Dim parvalue As String
Dim lendelta As Integer
Dim parindex As Integer
Dim sresult As String
Dim shead As String
Dim k As Integer
Do While Not EOF(logid)
Line Input #logid, sline
sline = Trim$(sline)
DoEvents
If sline = "END" Then
Exit Do
ElseIf InStr(sline, "<") > 0 Then
Exit Do
ElseIf InStr(sline, "CELLDBPSTATE") Then
If Not EOF(logid) Then
Line Input #logid, slinetemp
If Trim$(slinetemp) = "END" Then Exit Do
If InStr(Trim$(slinetemp), "<") > 0 Then
nextcmd = True
Exit Do
End If
End If
parindex = 0
Do Until sline = ""
par = Trim$(Right$(sline, Len(sline) - InStrRev(sline, " ", , vbTextCompare)))
lendelta = Len(slinetemp) - InStrRev(sline, " ", , vbTextCompare)
If lendelta > 0 Then
parvalue = Trim$(Right$(slinetemp, lendelta))
Else
parvalue = ""
End If
slinetemp = RTrim$(Left$(slinetemp, InStrRev(sline, " ", , vbTextCompare)))
sline = RTrim$(Left$(sline, InStrRev(sline, " ", , vbTextCompare)))
parindex = parindex + 1
parainline(0, parindex) = par
parainline(1, parindex) = parvalue
Loop
If Trim$(sresult) <> "" Then
sresult = sresult & Chr(13) & Chr(10)
End If
sresult = sresult & exchid
For k = 0 To parindex - 1
If rlbcphead = False Then
If shead = "" Then shead = shead & "EXCHID"
shead = shead & "," & parainline(0, parindex - k)
End If
sresult = sresult & "," & parainline(1, parindex - k)
Next k
ElseIf InStr(sline, "SCTYPESSDESDL") > 0 Then
If Not EOF(logid) Then
Line Input #logid, slinetemp
If Trim$(slinetemp) = "END" Then Exit Do
If InStr(Trim$(slinetemp), "<") > 0 Then
nextcmd = True
Exit Do
End If
End If
parindex = 0
Do Until sline = ""
par = Trim$(Right$(sline, Len(sline) - InStrRev(sline, " ", , vbTextCompare)))
lendelta = Len(slinetemp) - InStrRev(sline, " ", , vbTextCompare)
If lendelta > 0 Then
parvalue = Trim$(Right$(slinetemp, lendelta))
Else
parvalue = ""
End If
slinetemp = RTrim$(Left$(slinetemp, InStrRev(sline, " ", , vbTextCompare)))
sline = RTrim$(Left$(sline, InStrRev(sline, " ", , vbTextCompare)))
parindex = parindex + 1
parainline(0, parindex) = par
parainline(1, parindex) = parvalue
Loop
For k = 0 To parindex - 1
If rlbcphead = False Then
If shead = "" Then shead = shead & "EXCHID"
shead = shead & "," & parainline(0, parindex - k)
End If
sresult = sresult & "," & parainline(1, parindex - k)
Next k
ElseIf InStr(sline, "BSPWRMINP") > 0 Then
If Not EOF(logid) Then
Line Input #logid, slinetemp
If Trim$(slinetemp) = "END" Then Exit Do
If InStr(Trim$(slinetemp), "<") > 0 Then
nextcmd = True
Exit Do
End If
End If
parindex = 0
Do Until sline = ""
par = Trim$(Right$(sline, Len(sline) - InStrRev(sline, " ", , vbTextCompare)))
lendelta = Len(slinetemp) - InStrRev(sline, " ", , vbTextCompare)
If lendelta > 0 Then
parvalue = Trim$(Right$(slinetemp, lendelta))
Else
parvalue = ""
End If
slinetemp = RTrim$(Left$(slinetemp, InStrRev(sline, " ", , vbTextCompare)))
sline = RTrim$(Left$(sline, InStrRev(sline, " ", , vbTextCompare)))
parindex = parindex + 1
parainline(0, parindex) = par
parainline(1, parindex) = parvalue
Loop
For k = 0 To parindex - 1
If rlbcphead = False Then
If shead = "" Then shead = shead & "EXCHID"
shead = shead & "," & parainline(0, parindex - k)
End If
sresult = sresult & "," & parainline(1, parindex - k)
Next k
rlbcphead = True
End If
Loop
Dim fnum As Integer
fnum = FreeFile
Open spath + "RLBCP.CSV" For Append As #fnum
If shead <> "" Then
If sresult <> "" Then
Print #fnum, shead & Chr(13) & Chr(10) & sresult
Else
Print #fnum, shead
End If
Else
If sresult <> "" Then
Print #fnum, sresult
End If
End If
Close #fnum
////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
Dim parainline(1, 9) As String
Dim slinetemp As String
Dim par As String
Dim parvalue As String
Dim lendelta As Integer
Dim parindex As Integer
Dim sresult As String
Dim shead As String
Dim k As Integer
Dim headline As String
Do While Not EOF(logid)
Line Input #logid, sline
sline = Trim$(sline)
DoEvents
If sline = "END" Then
Exit Do
ElseIf InStr(sline, "<") > 0 Then
Exit Do
ElseIf InStr(sline, "CELLCLSSTATE") > 0 Then
headline = sline
Do While Not EOF(logid)
Line Input #logid, slinetemp
DoEvents
If Trim$(slinetemp) <> "" Then
If Trim$(slinetemp) = "END" Then Exit Do
If InStr(Trim$(slinetemp), "<") > 0 Then
nextcmd = True
Exit Do
End If
parindex = 0
sline = headline
Do Until sline = ""
par = Trim$(Right$(sline, Len(sline) - InStrRev(sline, " ", , vbTextCompare)))
lendelta = Len(slinetemp) - InStrRev(sline, " ", , vbTextCompare)
If lendelta > 0 Then
parvalue = Trim$(Right$(slinetemp, lendelta))
Else
parvalue = ""
End If
slinetemp = RTrim$(Left$(slinetemp, InStrRev(sline, " ", , vbTextCompare)))
sline = RTrim$(Left$(sline, InStrRev(sline, " ", , vbTextCompare)))
parindex = parindex + 1
parainline(0, parindex) = par
parainline(1, parindex) = parvalue
Loop
If Trim$(sresult) <> "" Then
sresult = sresult & Chr(13) & Chr(10)
End If
sresult = sresult & exchid
For k = 0 To parindex - 1
If rllcphead = False Then
If shead = "" Then shead = shead & "EXCHID"
shead = shead & "," & parainline(0, parindex - k)
End If
sresult = sresult & "," & parainline(1, parindex - k)
Next k
rllcphead = True
End If
Loop
Exit Do
End If
Loop
Dim fnum As Integer
fnum = FreeFile
Open spath + "RLLCP.CSV" For Append As #fnum
If shead <> "" Then
If sresult <> "" Then
Print #fnum, shead & Chr(13) & Chr(10) & sresult
Else
Print #fnum, shead
End If
Else
If sresult <> "" Then
Print #fnum, sresult
End If
End If
Close #fnum
////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
Dim parainlinec(1, 3) As String
Dim parainline(1, 7) As String
Dim slinetemp As String
Dim par As String
Dim parvalue As String
Dim lendelta As Integer
Dim parindex As Integer
Dim parindexc As Integer
Dim sresult As String
Dim shead As String
Dim k As Integer
Dim headline As String
Do While Not EOF(logid)
Line Input #logid, sline
sline = Trim$(sline)
DoEvents
If sline = "END" Then
Exit Do
ElseIf InStr(sline, "<") > 0 Then
Exit Do
ElseIf sline = "CELL" Then
If Not EOF(logid) Then
Line Input #logid, slinetemp
If Trim$(slinetemp) = "END" Then Exit Do
If InStr(Trim$(slinetemp), "<") > 0 Then
nextcmd = True
Exit Do
End If
End If
parindexc = 0
Do Until sline = ""
par = Trim$(Right$(sline, Len(sline) - InStrRev(sline, " ", , vbTextCompare)))
lendelta = Len(slinetemp) - InStrRev(sline, " ", , vbTextCompare)
If lendelta > 0 Then
parvalue = Trim$(Right$(slinetemp, lendelta))
Else
parvalue = ""
End If
slinetemp = RTrim$(Left$(slinetemp, InStrRev(sline, " ", , vbTextCompare)))
sline = RTrim$(Left$(sline, InStrRev(sline, " ", , vbTextCompare)))
parindexc = parindexc + 1
parainlinec(0, parindexc) = par
parainlinec(1, parindexc) = parvalue
Loop
ElseIf InStr(sline, "CHGRHSN") > 0 Then
headline = sline
Do While Not EOF(logid)
Line Input #logid, slinetemp
DoEvents
If Trim$(slinetemp) = "" Then Exit Do
If Trim$(slinetemp) = "END" Then Exit Do
If InStr(Trim$(slinetemp), "<") > 0 Then
nextcmd = True
Exit Do
End If
parindex = 0
sline = headline
Do Until sline = ""
par = Trim$(Right$(sline, Len(sline) - InStrRev(sline, " ", , vbTextCompare)))
lendelta = Len(slinetemp) - InStrRev(sline, " ", , vbTextCompare)
If lendelta > 0 Then
parvalue = Trim$(Right$(slinetemp, lendelta))
Else
parvalue = ""
End If
slinetemp = RTrim$(Left$(slinetemp, InStrRev(sline, " ", , vbTextCompare)))
sline = RTrim$(Left$(sline, InStrRev(sline, " ", , vbTextCompare)))
parindex = parindex + 1
parainline(0, parindex) = par
parainline(1, parindex) = parvalue
Loop
If Trim$(sresult) <> "" Then
sresult = sresult & Chr(13) & Chr(10)
End If
sresult = sresult & exchid
For k = 0 To parindexc - 1
If rlchphead = False Then
If shead = "" Then shead = shead & "EXCHID"
shead = shead & "," & parainlinec(0, parindexc - k)
End If
sresult = sresult & "," & parainlinec(1, parindexc - k)
Next k
For k = 0 To parindex - 1
If rlchphead = False Then
If shead = "" Then shead = shead & "EXCHID"
shead = shead & "," & parainline(0, parindex - k)
End If
sresult = sresult & "," & parainline(1, parindex - k)
Next k
rlchphead = True
Loop
If Trim$(slinetemp) = "END" Then Exit Do
If InStr(Trim$(slinetemp), "<") > 0 Then
nextcmd = True
Exit Do
End If
End If
Loop
Dim fnum As Integer
fnum = FreeFile
Open spath + "RLCHP.CSV" For Append As #fnum
If shead <> "" Then
If sresult <> "" Then
Print #fnum, shead & Chr(13) & Chr(10) & sresult
Else
Print #fnum, shead
End If
Else
If sresult <> "" Then
Print #fnum, sresult
End If
End If
Close #fnum
2012-1-9 09:50:26 下載次數(shù): 1
 cdd.rar (1.05 KB)
掃碼關(guān)注5G通信官方公眾號,免費(fèi)領(lǐng)取以下5G精品資料
1、回復(fù)“YD5GAI”免費(fèi)領(lǐng)取《中國移動：5G網(wǎng)絡(luò)AI應(yīng)用典型場景技術(shù)解決方案白皮書》
2、回復(fù)“5G6G”免費(fèi)領(lǐng)取《5G_6G毫米波測試技術(shù)白皮書-2022_03-21》
3、回復(fù)“YD6G”免費(fèi)領(lǐng)取《中國移動：6G至簡無線接入網(wǎng)白皮書》
4、回復(fù)“LTBPS”免費(fèi)領(lǐng)取《《中國聯(lián)通5G終端白皮書》》
5、回復(fù)“ZGDX”免費(fèi)領(lǐng)取《中國電信5G NTN技術(shù)白皮書》
6、回復(fù)“TXSB”免費(fèi)領(lǐng)取《通信設(shè)備安裝工程施工工藝圖解》
7、回復(fù)“YDSL”免費(fèi)領(lǐng)取《中國移動算力并網(wǎng)白皮書》
8、回復(fù)“5GX3”免費(fèi)領(lǐng)取《 R16 23501-g60 5G的系統(tǒng)架構(gòu)1》
|
關(guān)注樓主