Lines Matching refs:myLines
151 Dim myLines, myPattern, myInsideCert, myInsideLicense, myLicenseText, myNumCerts, myNumSkipped
156 myLines = Split(myCdData, vbLf, -1)
184 For i = 0 To UBound(myLines)
185 If InstrRev(myLines(i), "CKA_LABEL ") Then
187 myLabel = RegExprFirst(myPattern, myLines(i))
190 If InstrRev(myLines(i), "END") Then
192 While (i < UBound(myLines)) And Not (myLines(i) = "#")
194 If InstrRev(myLines(i), "CKA_TRUST_SERVER_AUTH CK_TRUST CKT_NSS_TRUSTED_DELEGATOR") Then
232 myOctets = Split(myLines(i), "\")
238 If InstrRev(myLines(i), "CVS_ID ") Then
240 myRev = RegExprFirst(myPattern, myLines(i))
243 If InstrRev(myLines(i), "CKA_VALUE MULTILINE_OCTAL") Then
248 If InstrRev(myLines(i), "***** BEGIN LICENSE BLOCK *****") Then
252 myStream.WriteText myLines(i) & vbLf
253 myLicenseText = myLicenseText & Mid(myLines(i), 2) & vbLf
255 If InstrRev(myLines(i), "***** END LICENSE BLOCK *****") Then