vbscript - right - Verificar si una cadena contiene caracteres específicos usando el script VBS

vbscript replace

Question

Mi script está haciendo el siguiente punto:

1. Recuperar todos mis archivos de carpetas seleccionados
2. Clasifíquelos por fecha (desde el reciente hasta el anterior)
3. Muéstrales en una ventana

Aquí está mi VBS Script (lo recupero aquí ):

    Option Explicit

    Const PathMDB   = "C:/Users/C8461789/Desktop/test_script" 

    MsgBox TriRepertoire,,"Enumération " & PathMDB
    ''---lister les fichiers du répertoire ---
    Function TriRepertoire()
    Dim fso, fichier, fileItem
    Dim i, imax, z, valeur, cible, liste
    Set fso = CreateObject("Scripting.FileSystemObject")

    imax = 0
    ''début de l''énumération
    For Each fichier In fso.GetFolder(PathMDB).Files
    Set fileItem = fso.GetFile(fichier)

    imax = imax + 1
    ReDim Preserve Tableau(2, imax)
    Tableau(1, imax) = Fichier.Name
    Tableau(2, imax) = FileItem.DateLastModified

    ''---trier les fichiers par ordre décroissant de création ---
    Do
    Valeur = 0
    For i = 1 To imax - 1
        If InStr(Tableau(1,i), "average", vbTextCompare) > 0 Then
            If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then
                For z = 1 To 2
                   Cible = Tableau(z, i)
                   Tableau(z, i) = Tableau(z, i + 1)
                   Tableau(z, i + 1) = Cible
                Next
                Valeur = 1
            End If
        End If
    Next 
    Loop While Valeur = 1
    Set fileItem = nothing
    Next

    ''Affichage du résultat classé
    For i = 1 To imax
    ''If IsNull(Tableau) Then
        liste = liste &vbTab& Tableau(1, i) &vbCr 
    ''End If
    Next
    TriRepertoire = liste

    Set fso = nothing 
    End Function

Para filtrar por nombre mis archivos recuperados, me gustaría agregar la siguiente condición:

• Para cada nombre de archivo, si contiene "promedio", agregue el nombre del archivo a la tabla
• De lo contrario, no hacer nada

Intenté usar

Si InStr (Tableau (1, i), "promedio", vbTextCompare)> 0 Entonces

Pero me muestra este error:

Answer 1

Está utilizando InStr incorrectamente. Tu codigo:

InStr(Tableau(1,i), "average", vbTextCompare)

La firma de InStr es:

InStr([start,]string1,string2[,compare])

Pero el problema aquí es que tiene dos parámetros opcionales, uno de ellos está en el frente, con una condición especial:

Opcional. Especifica la posición de inicio para cada búsqueda. La búsqueda comienza en la primera posición de personaje (1) por defecto. Este parámetro es obligatorio si se especifica la comparación

Entonces, como está utilizando el cuarto parámetro con el valor vbTextCompare , también debe especificar el punto de inicio en el primer parámetro, que sería 1 (primer carácter) en su caso. Entonces, el código corregido es:

InStr(1, Tableau(1,i), "average", vbTextCompare)

El mensaje de error que ves básicamente se queja de que se espera que el primer parámetro sea un entero, pero le estás dando una cadena.

Ver documentos InStr .