Plocka klartext från mellan en given uppsättning HTML- taggar är trivialt enkelt med kraften av reguljära uttryck . Visual Basic 6 släpptes innan . NET ramverket så att den inte har inbyggt stöd för reguljära uttryck som Visual Basic . NET , men det är fortfarande möjligt att använda reguljära uttryck i VB6 genom att referera den inbyggda VBScript Windows COM-objekt . När det refereras till , kommer du att kunna använda samma typ av reguljära uttryck som används i JavaScript . Instruktioner
1
Klicka på " projektet " och klicka sedan på "Referenser" i din VB6 redaktör .
2
Rulla nedåt i listan med tillgängliga bibliotek till " Microsoft VBScript Regular Expressions 5.5 . " och markera rutan bredvid den .
3
Kopiera följande kod i en subrutin . Det hittar texten mellan några HTML-taggar och visa resultatet i en meddelanderuta : Dim RegularExpressionObject Som New VBScript_RegExp_55.RegExpWith RegularExpressionObject.Pattern = " < ( ' taggen ' \\ w + ? ? ) * . > " + " ( ? ' text ' . * ? ) " + " < /\\ k'tag ' > " . ignoreCase = TrueEnd WithDim regExMatcher Som Match = Regex.Match ( "
Vissa data mellan taggarna < /h1 > " , RegularExpressionObject ) katalog
MessageBox.Show ( regExMatcher.Groups ( "tag " ) . Value ) katalog