recuperer chaine de caractère

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : recuperer chaine de caractère

karl1403

salut dans un petit prog (petit car je dévute en vb à petit pas :pt1cable:

donc j'attaque une AD comme ceci :

Set objUser = GetObject _
("LDAP://cn=usertest,ou=OuTest,dc=Mon,dc=domain,dc=com" )

ceci est valable pour un user, quand je récupere la liste des groupes du user j'obtient :

("LDAP://cn=nom du groupe,ou=nom de l'ou,dc=Mon,dc=domain,dc=com" ) ce qui est peu lisible,

comment faire pour obtenir seulement le nom du groupe ?
je pensais créer une variable et la formater pour que je n'obtienne que la valeur de "cn" mais je sais pas faire :sweat: :sweat:

help me please :ange: :ange:

ou peut être faut-il faire autrement ?

Publicité

guendalf

J'ai peut-etre mal compris ta question (Quel est la signification du sigle AD ??)
Mais tu as une chaine de caracteres ("LDAP://cn=nom du groupe,ou=nom de l'ou,dc=Mon,dc=domain,dc=com" ), et tu veux extraire une sous-partie de cette chaine ??

Code :

Public Sub fExtractGroupName()
Dim s As String
Dim nStartPos As Integer, nEndPos As Integer
s = "LDAP://cn=nom du groupe,ou=nom de l'ou,dc=Mon,dc=domain,dc=com"
nStartPos = InStr(s, "cn=" ) + Len("cn=" )
nEndPos = InStr(nStartPos, s, "," )
sGroupName = Mid(s, nStartPos, nEndPos - nStartPos)
MsgBox sGroupName
End Sub

---------------
Guendalf

karl1403

merci pour ta réponse, en faite Ad est l'abréviation de Active directory.

pour ton code comment faire pour le coller dans un bouton car j'obtient le message suivant : End sub attendu

dans mon bouton j'ai le code suivant :

Private Sub Command1_Click()

Public Sub fExtractGroupName()
Dim s As String
Dim nStartPos As Integer, nEndPos As Integer

s = strAdsPath
nStartPos = InStr(s, "cn=" ) + Len("cn=" )
nEndPos = InStr(nStartPos, s, "," )
sGroupName = Mid(s, nStartPos, nEndPos - nStartPos)
MsgBox sGroupName

End Sub

merci par avance de ton aide

guendalf

comme ca

Code :

Private Sub Command1_Click()
Dim s As String
Dim nStartPos As Integer, nEndPos As Integer
s = strAdsPath
nStartPos = InStr(s, "cn=" ) + Len("cn=" )
nEndPos = InStr(nStartPos, s, "," )
sGroupName = Mid(s, nStartPos, nEndPos - nStartPos)
MsgBox sGroupName
End Sub

Sub designe la declaration d'une procedure et End Sub la fin de la procedure. Tu ne peux pas declarer une procedure a l'interieur d'une autre, mais tu peux en appeller une par contre:

Code :

Sub UneRoutine(des_parametres..)
' des actions
Call UneAutreRoutine(ses arguments...)
' d'autres actions
end Sub

Mais je te conseil de lire des tutoriaux de VB pour plus de details..

---------------
Guendalf

karl1403

Ok et merci

une dernière chose où puis-je trouver des tutoriaux sur vb ?

merci encore

knakes

developpez.com ou vbfrance.com pour des codes a adapter.

---------------
now : do nothing

FORUM HardWare.fr

Programmation

VB/VBA/VBS

recuperer chaine de caractère

Sujets relatifs
[resolu]Récupérer le code ascii	Recuperer tout le contenu d'une balise (A L'AIDE :((( )
comment récuperer des infos d'un fichier .txt	[php] recherche d'un mot 'exact' ds une chaine
Récupérer le numéro DD d'une machine	Verification d'une chaine numérique
Remplacement des occurrences d'un mot dans une chaîne par un autre mot	Récupérer une chaine de caractère dans l'URL
Recuperer une chaine de caractere venant d'un script PHP	Recuperer une chaine de caractere d'une iframe
Plus de sujets relatifs à : recuperer chaine de caractère

Page générée en 0.051 secondes