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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  recuperer chaine de caractère

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

recuperer chaine de caractère

n°1187526
karl1403
Posté le 30-08-2005 à 09:03:48  profilanswer
 

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 ?

mood
Publicité
Posté le 30-08-2005 à 09:03:48  profilanswer
 

n°1187550
guendalf
Posté le 30-08-2005 à 09:43:08  profilanswer
 

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 :
  1. Public Sub fExtractGroupName()
  2. Dim s As String
  3. Dim nStartPos As Integer, nEndPos As Integer
  4. s = "LDAP://cn=nom du groupe,ou=nom de l'ou,dc=Mon,dc=domain,dc=com"
  5. nStartPos = InStr(s, "cn=" ) + Len("cn=" )
  6. nEndPos = InStr(nStartPos, s, "," )
  7. sGroupName = Mid(s, nStartPos, nEndPos - nStartPos)
  8. MsgBox sGroupName
  9. End Sub


---------------
Guendalf
n°1187725
karl1403
Posté le 30-08-2005 à 13:17:54  profilanswer
 

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

n°1187788
guendalf
Posté le 30-08-2005 à 14:17:38  profilanswer
 

comme ca

Code :
  1. Private Sub Command1_Click()
  2. Dim s As String
  3. Dim nStartPos As Integer, nEndPos As Integer
  4. s = strAdsPath
  5. nStartPos = InStr(s, "cn=" ) + Len("cn=" )
  6. nEndPos = InStr(nStartPos, s, "," )
  7. sGroupName = Mid(s, nStartPos, nEndPos - nStartPos)
  8. MsgBox sGroupName
  9. 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 :
  1. Sub UneRoutine(des_parametres..)
  2. ' des actions
  3. Call UneAutreRoutine(ses arguments...)
  4. ' d'autres actions
  5. end Sub


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


---------------
Guendalf
n°1187939
karl1403
Posté le 30-08-2005 à 16:28:28  profilanswer
 

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

n°1187994
knakes
Posté le 30-08-2005 à 17:05:58  profilanswer
 

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


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

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

  recuperer chaine de caractère

 

Sujets relatifs
[resolu]Récupérer le code asciiRecuperer 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 machineVerification d'une chaine numérique
Remplacement des occurrences d'un mot dans une chaîne par un autre motRécupérer une chaine de caractère dans l'URL
Recuperer une chaine de caractere venant d'un script PHPRecuperer une chaine de caractere d'une iframe
Plus de sujets relatifs à : recuperer chaine de caractère


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