Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1996 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  problème de cote et de prise en charge du texte

 



problème de cote et de prise en charge du texte




Attention si vous cliquez sur "voir les résultats" vous ne pourrez plus voter

 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

problème de cote et de prise en charge du texte

n°2205022
batmatjojo
Posté le 02-10-2013 à 10:43:12  profilanswer
 

bonjour,  
 
je rencontre un problème concernant une ligne :  
 
a la ligne sNewStream , j'aimerai a la place de "test" qu'il prenne en compte ce code la : Set net = CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection "\\ mais il ne le prend pas comme du texte mais comme du code .
 
Option Explicit
Const Fichier = "imprimante.txt"
Const LigneCherche = "\\sserveur"
 
Dim fso
Dim oRegEx
Dim monFichier
Dim sStream
Dim sNewStream
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set oRegEx = New RegExp
oRegEx.Global = True
oRegEx.Pattern = "\n" & LigneCherche & ".*(\r|$)"
Set monFichier = fso.OpenTextFile(Fichier,1)
sStream = monFichier.ReadAll
monFichier.Close
sNewStream = oRegEx.Replace(sStream, vbLf & "test" & vbCr)
Set monFichier = fso.OpenTextFile(Fichier,2)
monFichier.Write sNewStream
monFichier.Close
 
 
merci de votre aide

mood
Publicité
Posté le 02-10-2013 à 10:43:12  profilanswer
 

n°2205032
rufo
Pas me confondre avec Lycos!
Posté le 02-10-2013 à 10:55:26  profilanswer
 

Tu veux faire ça ?
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject("WScript.Network" ).net.AddWindowsPrinterConnection \"\\\\" & vbCr)


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
n°2205033
batmatjojo
Posté le 02-10-2013 à 10:57:41  profilanswer
 

oui exactement , mais cela le prend comme du code et non comme du texte
 
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject("WScript.Network" )
net.AddWindowsPrinterConnection "\\sserveur" & vbCr)


Message édité par batmatjojo le 02-10-2013 à 10:58:04
n°2205038
rufo
Pas me confondre avec Lycos!
Posté le 02-10-2013 à 11:30:04  profilanswer
 

Apparemment, tu sais pas lire ce que j'ai mis :/ Il faut que tu échappes via le caractère \ tout ce qui est " et \. Donc un " devient \" et un \ devient \\ dans ta chaîne de caractères.


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
n°2205048
batmatjojo
Posté le 02-10-2013 à 12:59:03  profilanswer
 

merci de ton aide
 
mais ta ligne provoque cette erreur : ') attendu  
 
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject("WScript.Network" ).net.AddWindowsPrinterConnection \"\\\\" & vbCr)


Message édité par batmatjojo le 02-10-2013 à 13:03:49
n°2205065
rufo
Pas me confondre avec Lycos!
Posté le 02-10-2013 à 15:38:45  profilanswer
 

Apparemment,c'est pas le \ pour échapper un caractère mais le ".
 
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject(""WScript.Network"" ).net.AddWindowsPrinterConnection ""\\sserveur""" & vbCr)
 
 


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
n°2205137
batmatjojo
Posté le 03-10-2013 à 09:41:23  profilanswer
 

merci de ton aide , du coup je suis arrivé a cette conclusion :
 
mais cela ne modifie en rien le fichier texte en question  
 
merci de votre aide
 
Option Explicit
Const Fichier = "C:\Users\user\Desktop\imprimante.txt"
Const LigneCherche = "server"
 
Dim fso
Dim oRegEx
Dim monFichier
Dim sStream
Dim sNewStream
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set oRegEx = New RegExp
oRegEx.Global = True
oRegEx.Pattern = "\n" & LigneCherche & ".*(\r|$)"
Set monFichier = fso.OpenTextFile(Fichier,1)
sStream = monFichier.ReadAll
monFichier.Close
sNewStream = oRegEx.Replace(sStream, vbLf & "Set net = CreateObject(""WScript.Network"" ).net.AddWindowsPrinterConnection ""\serveur""" & vbCr)  
Set monFichier = fso.OpenTextFile(Fichier,2)
monFichier.Write sNewStream
monFichier.Close


Message édité par batmatjojo le 03-10-2013 à 09:44:17
n°2205197
MaybeEijOr​Not
but someone at least
Posté le 03-10-2013 à 13:32:56  profilanswer
 

Essaye avec ça :
 
"Set net = CreateObject(" & """ & "WScript.Network" & """ & " )
net.AddWindowsPrinterConnection "


Message édité par MaybeEijOrNot le 03-10-2013 à 13:33:11
n°2205212
batmatjojo
Posté le 03-10-2013 à 14:15:21  profilanswer
 

ça ne fonctionne pas
 
tu as pas une autre astuce ?


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  problème de cote et de prise en charge du texte

 

Sujets relatifs
MYSQL problème count via out joinProblème programmation VBA
problème VBA avec Find/ReplaceProbleme syntaxe ? [résolu]
VBA - couleur texte cellule en fonction du jourProblème affichage widget Twitter sur site web mobile
Probleme avec les .floatContent sur dreamweaverProbléme IMAGE pour mon site
Problèmes affichage texte 
Plus de sujets relatifs à : problème de cote et de prise en charge du texte


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR