Profil de cs_JMO - CodeS SourceS

Création RegEx après download url Résolu

Bonjour le Forum, Après download d'une url, j'obtiens Environnement de productionmenu Commandes command_idnombre servicesnamelineexamplecmd_cat_idtype3210A-CHK-PMU-ANALYSLOG$USER1$/wrap.pl '$HOSTNAME$' '$SERVICEDESC$' '$HOSTDOWNTIME$' '$SERVICEDOWNTIME$' $USER1$/check_nrpe -t 500 -n -H $HOSTNAME$ -p 5666 -c $SERVICEDESC$ -a analys... Lire la suite

In progress !!! Création classe Imports System.Text.RegularExpressions Public Class ExtractIDSTATE Public Sub New() End Sub Public Sub New(ByVal M As Match) 'Id = M.Groups("id").Value 'Countservice = M.Groups("countservice").Value 'Template = M.Groups("template").Value Plu...

Longue phrase dans le code VB.net

J'ai de longue phrase dans mes codes VB.net et je voulais bien les utiliser malheureusement je ne sais pas quel syntaxe pour le découper en interligne en le découpant

Bonjour Djalia258, Documentation Microsoft : https://docs.microsoft.com/fr-fr/dotnet/visual-basic/programming-guide/program-structure/how-to-break-and-combine-statements-in-code

Visual Basic Express - Mise en forme fichier CSV Résolu

Bonjour, Dans un premier temps je voulais vous remercier pour ce forum sur lequel j’ai trouvé d’innombrable aide et tutoriel, donc merci à toutes et à tous pour votre participation et le partage d’information. Je me permets de vous demander de l’aider sur un problème ou je ne trouve pas de solution. Je m’explique je développe une p... Lire la suite

Bonjour le Forum, Bonjour vb95 et Whismeril, Approche similaire de vos suggestions (split) mais avec test count=12. Dim readText() As String = File.ReadAllLines(myfilecsv) Dim currentline As String For Each currentline In readText Dim arrayline As String() = currentline.Split(",") If...

Changement couleur texte cell ListView/GridView Résolu

Bonjour le Forum, vb.net - wpf - changement couleur de texte dans cellule d'un ListView/GridView Je recherche la méthode pour automatiser la colorisation du texte de cellule d'un GridView en fonction de son contenu : - Vert si contenu = OK; - Rouge si contenu = NOK. Dans la déclaration du xaml, en implicite, j'ai forcé la coule... Lire la suite

Je viens de tester ta 2ème proposition. Résultat conforme !!! Encore un grand merci Whismeril. jean-marc

Bonjour Whismeril, Explications: Je parcours un référentiel avec tous les hosts supervisés pour y extraire 3 informations: Dim pollers = ( From row In datapollers.AsEnumerable() Select New SheetHosts With { .Customer = row.Field(Of String)("Contrat"), .Host = row.Field(O...

Whismeril, Encore un grand merci pour tes conseils. Pour le lien "http://www.wpf-tutorial.com", je me l'étais déjà mis en favori depuis ma récente initiation au xaml/wpf, mais pas évident d'y trouver sa problématique. J'ai donc effectué les modifs suivantes : Dans la classe "Poller", j'ai déclaré en booléan la variable "Exist...

Bonsoir Whismeril, Merci de cette réponse aussi rapide. Je vais lire tes liens proposés et te tiens au courant de mon avancement. Bonne soirée. jean-marc

Insertion item dans une collection pour binding Résolu

Bonsoir le Forum, Dans une appli WPF (ma 1ère) , est-il possible d'insérer un item dans une collection pour binding vers un combobox ??? Fichier XAML La classe Imports System.Text.RegularExpressions Public Class ExtractIDMON Public Sub New() End Sub Public Sub New(ByVal M As Match) Trigramme = M.Gr... Lire la suite

Bonsoir Whismeril, Merci de ton lien et de ton temps consacré. J'ai donc rajouté le textblock dans le fichier xaml. Ne t'embête pas à chercher une alternative, la solution #2 me suffit amplement. Je mets à résolu ce post. Encore merci, bonne soirée et à + sur ce forum, jean-marc

Bonjour Whismeril, Tes conseils sont toujours les bienvenus !!! J'ai donc modifié le xaml comme indiqué. Je ne sais pas si c'est la meilleure méthode pour ajouter un item Dim listofcustomer As List(Of ExtractIDMON) Dim listofcombobox As New List(Of String) listofcustomer = ( From l In toutes...

HTA recharger script au click sur bouton. Résolu

Bonjour, J'ai un petit souci avec ce code! Lorsqu'une modification est faite depuis le TxtSource, celle-ci n'est pas prise en compte lors du click sur mon button. Pouvez-vous m'indiquer comment recharger le contenue du TxtSource? My HTML application Saisir le texte à traiter: -\-\\\*-****/Un test, Pourquoi faire? c'est... Lire la suite

Votes

Bonjour NeriXs, Ton script ré-adapté puisque texte n'est plus une constante. HTA recharger script au click sur bouton Saisir le texte à traiter: -\-\\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///*/ Caractères de la "Phase 1" remplacés: ...

Récupération du message (regex.replace). Résolu

Bonjour, J'essaie de récupérer le résultat de mon remplacement dans mon message de sortie afin d'obtenir ceci: Const texte: \-\\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///*/ Result: \(-)\\\(*)(-)****(/)Un( )test(,)( )Pourquoi( )faire(?)( )c(')est( )fou( )ça(!)( )\****(-)(*)///(*)(/) Pouvez-vous m'aider? Const texte ... Lire la suite

Vote

Bonjour NeriXs, Il te suffit de lire le tableau à l'envers. Dim result result = texte For i=UBound(arrDicoItem) To 0 Step -1 Dim parse1, parse2, intstr parse1 = "(" & Left(Split(arrDicoItem(i),"trouvée " & """")(1),1) & ")" parse2 = Split(arrDicoItem(i),"position: ")(1) intstr = Len(result) result = Left(result,parse2)...

Boucle VBA en VBScript Résolu

Bonjour, Pourriez-vous m'aider à porter cette boucle VBA en Vbscript SVP? For Each caractere In Array("1", "2", "3") Recherche caractere, texte Next Pour info Recherche fait référence a une sub "Sub Recherche" texte = "Poste1, Poste2 et Poste3" Lire la suite

Vote

Ton script semble correct, excepté si tu rajoutes ":" dans le tableau myarray. jean-marc Non, j'ai rien dit, je viens de tester l'ajout de ":" dans myarray et texte.

Il te suffit donc de mettre 'Affichage du résultat classé strList = objDico.count & " correspondance(s) trouvée(s):" & vbcrlf For i = 0 To UBound(arrDicoItem) strList = strList & i+1 & Space(3) & arrDicoItem(i) & vbCrLf Next jean-marc

Désolé, l'insertion d'une image ne fonctionne plus depuis "la révolution" du site !! jean-marc Message à supprimer par un modérateur, image affichée après plusieurs refresh. Merci,

Bonsoir NeriXs, Test avec myarray = Array("\?", " ", "\,", "\*", "\!", "\-", "\/", "\'") 'et strList = objDico.Count-1 & " correspondance(s) 'ou strList = UBound(arrDicoItem) & " correspondance(s) For i = 0 To UBound(arrDicoItem)-1 strList = strList & i+1 & Space(1) & arrDicoItem(i) & vbCrLf Next Résultat ...

Bonjour NeriXs , Oui il faut bien mettre For t = 0 To UBound(arrDicoItem)-1. Corriger également strList = objDico.Count-1 & " correspondance(s). Dans myarray, l'expression "" provoque une erreur. Par contre OK pour " ".

Vote

Bonjour NeriXs, Ajout d'un tri Option Explicit Const texte = "\-\\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///*/" Dim objDico Dim myarray, arrDicoItem Dim item, strList, cprovisoire Dim i, t, bpermute myarray = Array("\\", "\*", "-") Set objDico = CreateObject("Scripting.Dictionary") For Each item In myarray ...

Une variante Option Explicit Const texte = "\-\\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///*/" Dim myarray, item, result myarray = Array("\\", "\*", "-") For Each item In myarray result = result & vbCrLf & Recherche(item) Next MsgBox result Function Recherche(Caractere) Dim regex, matches Dim Pattern, ma...

Vote

Ton script corrigé en version vbs. Option Explicit Const texte = "\-\\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///*/" Dim myarray, item myarray = Array("\\", "\*", "-") For Each item In myarray Recherche item Next Sub Recherche (Caractere) Dim regex, matches Dim Pattern, match, msg, Sortie, i Pattern ...

For Each item In myarray Recherche item, texte Next Attends-tu cette réponse ???