IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

recherche/remplace sans respecter la casse


Sujet :

VBScript

  1. #1
    Membre à l'essai
    Inscrit en
    Juin 2010
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Juin 2010
    Messages : 8
    Points : 10
    Points
    10
    Par défaut recherche/remplace sans respecter la casse
    Bonjour,

    j'effectue une recherche dans un fichier afin de remplacer une chaine mais je voudrais qu'il ignore la casse ( a la place de replace)
    ci joint mon prog
    merci pour votre aide
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
     
    Dim WshShell1, SUserProfile
    Set WshShell1 = CreateObject("Wscript.Shell")
    sUserProfile = WshShell1.ExpandEnvironmentStrings("%USERPROFILE%")
    fichier2 = sUserProfile&"\Application Data\ICAClient\PN.INI"
    fichier1 = sUserProfile&"\Application Data\ICAClient\APPSRV.INI"
     
     
    MsgBox "domain :" &domaineold
     
    Dim fso, f, st
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(fichier2, ForReading)
    st = f.readAll
     
    f.Close
    Set f = fso.OpenTextFile(fichier2, ForWriting)
    f.Write (replace(replace(st,"Domain=siege_dev","Domain=NORIAP")))
    f.close

  2. #2
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 155
    Points
    17 155
    Par défaut
    Salut
    Compris , pas compris
    Renseigner peut être le paramètre 6
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Const vbUseCompareOption = -1
    Const vbBinaryCompare = 0
    Const vbTextCompare = 1
     
    Dim Msg
    Msg = "Toto, Tati, toto"
    Label1.Caption = Replace(Msg, "tati", "tata", 1, , vbBinaryCompare)
    MsgBox "Avec vbTextCompare:" & vbCrLf & Msg & " devient" & vbCrLf _
            & Replace(Msg, "tati", "tata", 1, , vbTextCompare) & vbCrLf & vbCrLf _
         & "Avec vbBinaryCompare:" & vbCrLf & Msg & " devient" & vbCrLf _
            & Replace(Msg, "tati", "tata", 1, , vbBinaryCompare) & vbCrLf & vbCrLf _
         & "Avec vbUseCompareOption:" & vbCrLf & Msg & " devient" & vbCrLf _
            & Replace(Msg, "tati", "tata", 1, , vbUseCompareOption), vbInformation
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

Discussions similaires

  1. Réponses: 10
    Dernier message: 06/09/2012, 11h30
  2. Réponses: 5
    Dernier message: 13/03/2012, 11h52
  3. Tester 2 String sans respecter la casse
    Par mouss4rs dans le forum Langage
    Réponses: 14
    Dernier message: 17/02/2012, 19h04
  4. Trier list sans respecter la casse
    Par lebonhom06 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 23/02/2010, 12h24
  5. Select sans respecter la casse ?
    Par Thomad dans le forum SQL
    Réponses: 10
    Dernier message: 10/06/2008, 17h34

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo