Supprimer les caractères de la chaîne en VB6

J'ai quelques chaînes (les chemins de fichiers) que, parfois, les ont placés au hasard des sauts de ligne (CRLF) à l'intérieur d'eux que je dois le supprimer. Comment pourrais-je aller sur le faire?

OriginalL'auteur MatsT | 2011-06-08

  1. 12

    Ont un look à la Remplacer(..) fonction.

    someVariable = Replace(someVariable, vbNewLine, "")
    +1 si vous avez lié à la VB.Net 2005 de la documentation. J'ai pris la liberté de modifier votre post pour le lien vers le VB6 documentation.
    Merci :).
    Réponse parfaite, merci

    OriginalL'auteur Kevin

  2. 6

    Replace$() remplace;

    path = Replace$(path, vbcrlf, "")
    Il ne semble pas y avoir de Remplacer la fonction$ avec un signe dollar.
    le $ signifie que la fonction renvoie une chaîne de caractères. Il est plus exact d'utiliser le $, &, %, et # symboles de variables et de fonctions.
    C'est aussi une optimisation pour certains (mais pas les remplacer()) chaîne funcs aivosto.com/vbtips/stringopt.html#variant
    J'étais confus, car la documentation mentionne des fonctions distinctes pour d'autres fonctions comme LCase$/LCase et Trim$/assiette, mais pas pour les Remplacer. Pourquoi n'est-il pas une optimisation pour le Remplacer?
    VB6 a été conçu comme un produit de transition, mais, malheureusement, était le dernier de son genre. Quand un certain nombre de choses (Split, Remplacez par exemple) ont été ajoutés à VBScript partie du code de il semble y avoir tout simplement été greffés sur quand VB6 a été se précipita hors de la porte. Qui peut être pourquoi le VB6 docs parler de l'OFS et de l'objet RegEx tellement et nous n'avons jamais eu natif de flux e/S dans VB.

    OriginalL'auteur Alex K.

  3. 3

    Cela permettra d'éliminer tous CRLFs dans votre chaîne.

    strFileName = Replace(strFileName, vbNewLine, "")

    Ici est une fonction que vous pouvez mettre dans un module d'aide:

    Public Function CleanFilePath(FilePath As String) As String
    Return Replace(FilePath, vbNewLine, "")
End Function

    EDIT:

    Sinon, ici, est d'une aide de sous-routine pour modifier la chaîne elle-même. Ce n'est pas une pratique courante dans les nouvelles langues.

    Public Sub CleanFilePath(ByRef FilePath As String)
    FilePath = Replace(FilePath, vbNewLine, "")
End Sub
    Si je voulais faire une fonction d'assistance, il est plus logique de juste corriger le chemin d'accès et de ne pas revenir tout, ou?
    Tu veux dire passer la chaîne elle-même ByRef et de le modifier? Vous pourriez, mais il est plus pratique standard avec de nouvelles langues pour renvoyer une valeur.
    Convenez qu'il est de pratique courante, mais pourquoi est-ce exactement? N'est-il pas plus optimisé pour transmettre les références au lieu de créer de nouveaux objets?

    OriginalL'auteur Devin Burke