1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Petit coup de patte en VB.net

Résolu
Signaler
Messages postés
34
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2012
 -
Messages postés
34
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2012
 -
Allo à tous,

J'ai une function qui sert a donner ce qui est entre 2 caractères.
Ce que je cherche a faire c'est d'augmenter la limite de caractère puisque pour l'instant on ne peut qu'en definir 1 

Private Function Entre(ByVal txt, ByVal Car1, ByVal Car2) As String
        Entre = Mid(txt, InStr(1, txt, Car1) + 1, InStr(InStr(1, txt, Car1) + 1, txt, Car2) - InStr(1, txt, Car1) - 1)
    End Function

2 réponses

Réponse 1 / 2
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
 35
Bonjour

On dirais tu VB6, tu devrai décocher l'import Microsoft.VisualBasic dans les options de ton projet (attention tu aura surement pleins d'erreurs à corriger)
Ajoute aussi un Option Strict On au début de chacun fichier vb.
Utilise plutôt les méthodes de la class String


Donc, si j'ai bien compris ta demande : 

Private Function Entre(ByVal txt As String, ByVal Car1 As String, ByVal Car2 As String) As String
  Dim iStart, iEnd, length As Integer
  iStart = txt.IndexOf(Car1) + Car1.Length
  If iStart > -1 Then
    iEnd = txt.IndexOf(Car2, iStart)
    If iEnd > -1 Then
      length = iEnd - iStart
    End If
  End If
  If length > 0 Then
    Return txt.Substring(iStart, length)
  Else
    Return String.Empty
  End If
End Function



_____________
Kenji
Réponse 2 / 2
Messages postés
34
Date d'inscription
vendredi 12 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2012
Merci pour cette réponse aussi tôt et fonctionnel :)

De ma part, cela fonctionnait sauf que cela fonctionnais seulement pour le car2



merci beaucoup
Répondre Posez votre question