La Segmentation Des Chaînes De

Que j'ai autour de 100 lignes de texte que je veux marquer, qui sont semblables aux suivantes:

<word> <unknown number of spaces and tabs> <number>

Je vais avoir du mal à trouver marquer fonctions avec VBA. Quelle serait la méthode la plus simple pour marquer ces chaînes en VBA?

Où prenez-vous que les cordes? Si ils sont dans le document Word, vous pouvez utiliser Word intégré de recherche et de remplacement de la fonction.

OriginalL'auteur stanigator | 2009-07-11

  1. 3

    Vous avez pu lire ligne par ligne et utiliser la fonction split à split le mot et le nombre en fonction de l'espace. J'ai vaguement rappelez-vous VBA a la fonction de répartition.

    J'ai eu le lien suivant en cherchant dans google. Pas sûr de la version d'office que vous utilisez.

    http://msdn.microsoft.com/en-us/library/aa155763(bureau de.10).aspx

    Ce lien a la fonction de répartition.

    J'ai réussi à diviser la ligne dans un tableau de string, disons que c'est appelé hello(). La validité de contenu est dans le premier et le dernier entrées de hello(). Comment puis-je déterminer la taille de la matrice pour moi de m'adresser à la première et la dernière entrée du tableau, comme la taille du tableau est variable.
    vous pouvez utiliser ubound(tableau) pour obtenir le nombre d'éléments. Vous pouvez obtenir la première entrée par array(0) & dernière entrée par array(ubound(tableau)). Split renvoie un 1 tableau multidimensionnel. Donc, myarray = split("hello world", " ") debug.imprimer myarray(0) dim elementCount as integer elementCount = ubound(myarray) debug.imprimer myarray(elementCount).

    OriginalL'auteur msvcyc

  2. 2

    Vous pouvez utiliser le Split() méthode ou plus complexes des correspondances, vous pouvez utiliser le "vbscript.regexp" objet:

    Sub NewRegex()
    Dim reg
    Dim matches, match, tmpStr As String

    Set reg = CreateObject("vbscript.regexp")
    tmpStr = "blah bla ...."

    With reg
        .IgnoreCase = True
        .MultiLine = False
        .Pattern = "your regex pattern goes here"
        .Global = True
    End With

    Set matches = reg.Execute(tmpStr)

    For Each match In matches
        MsgBox match
    Next mt

End Sub

    Voici un tutoriel sur l'utilisation de regex à partir de VBA: À l'aide d'Expressions Régulières (RegExp) dans Excel

    OriginalL'auteur Mitch Wheat

  3. 0

    VBA fonction split droit de MS de la page

    http://msdn.microsoft.com/en-us/library/aa155763(bureau de.10).aspx

    OriginalL'auteur Cuervo's Laugh