Questione : GUID di un Activex OCX

Sto provando ad ottenere il GUID principale di un Activex OCX appena dal percorso pieno del OCX.
1. Non può essere registrato in modo da non posso ottenerlo da Registry.
2. Non posso usare TlbInf32.Dll perché gli usi ITypeLib di programma eliminare dependencies.

Here è il codice che sto usando: il rel= " nofollow " " del _blank " " del target= " di http://www.jsware.net/jsware/zips/tlbread.zip del href= del
re/zips/tlbread.zip
Article di http://www.jsware.net/jswa è qui: rel= " nofollow " " del _blank " " del target= " di http://www.jsware.net/jsware/vbcode.php3#tlbc del href= del
re/vbcode.php3#tlbc di http://www.jsware.net/jswa class= del

Risposta : GUID di un Activex OCX

Esaminando come per come:

Funzione IsLike (valore, modello)
regEx fioco
   
    Regolare il regEx = CreateObject (“vbscript.regexp„)
        Con regEx
            . Globale = allineare
            .IgnoreCase = allineano
            . Il modello = “^„ & sostituisce (modello, “*„,„. {0,} ") & “$„
            IsLike =. Provare (valore)
        Concluder con
    Regolare il regEx = niente
Concludere la funzione

Accetterà i codici di controllo fra le stringhe mentre

Funzione IsLike (ByVal TextVal, modello di ByVal)
  RXP fioco
  IsLike = falso
  Regolar RXP = nuovo RegExp
    Con RXP
      . Globale = allineare
      .IgnoreCase = allineano
      . Il modello = “^„ & sostituisce (modello, “*„,„ [\ x20- \ x7E] *") & “$„
      IsLike =. Provare (TextVal)
    Concluder con
  Regolar RXP = niente
Concludere la funzione

Si accerterà che gli unici caratteri fra le componenti siano display alfanumerico e punteggiatura comune.

Chris