vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB Skript (VBS)
String zerteilen 
Autor: Sebastian666
Datum: 04.12.06 11:35
Hallo Leute,

wieder einmal stehe ich vor einem kleinem Problem. Am besten ist, ich beschreibe ersteinmal die Aufgabe.

Ich sollte einen bestimmten Wert aus der Registry auslesen und diesen mit einem String vergleichen. So dieser String, der verglichen werden sollte ist ein Anmeldename des jeweiligen Benutzers. Als Testbeispiel einmal "abcdefgh". Dieser String muss so geteilt werden, dass folgendens herauskommt "a.b.c.d.e.f.g.h...". Das dient dazu, das ich ihm danach convertieren kann.
Ich habe mir eine Function geschrieben, das genau dieses macht. Bloss ist dieses sehr statisch. D.h. diese Function kann nicht mit Strings arbeiten die den Wert von 8 Buchstaben als Anmeldename unterschreiten.

Meine Frage habt ihr eine Idee wie ich sowas bewerkstelligen könnte ? Gibt es eine Art Funktion, mit der ich dieses aufteilen schnell und unkompliziert lösen kann ?

Für jede Hilfe bin ich dankbar

MfG
Sebastian

P.s. Beigefügt mal meine eigene Funktion 

Function GetUserName(BenutzerName)
  Rightpos = InStrRev(BenutzerName, "")
  B1 = Left(BenutzerName, Rightpos-7)
  Z1 = Right(BenutzerName, Rightpos-1)
  B2 = Left(Z1, Rightpos-7)
  Z2 = Right(BenutzerName, Rightpos-2)
  B3 = Left(Z2, Rightpos-7)
  Z3 = Right(BenutzerName, Rightpos-3)
  B4 = Left(Z3, Rightpos-7)
  Z4 = Right(BenutzerName, Rightpos-4)
  B5 = Left(Z4, Rightpos-7)
  Z5 = Right(BenutzerName, Rightpos-5)
  B6 = Left(Z5, Rightpos-7)
  Z6 = Right(BenutzerName, Rightpos-6)
  B7 = Left(Z6, Rightpos-7)
  Z7 = Right(BenutzerName, Rightpos-7)
  B8 = Left(Z7, Rightpos-7)
  Z8 = Right(BenutzerName, Rightpos-8)
  P = "."
  GetUserName = Array(B1,P,B2,P,B3,P,B4,P,B5,P,B6,P,B7,P,B8,P,P,P)
End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
String zerteilen1.257Sebastian66604.12.06 11:35
Re: String zerteilen749sudave04.12.06 16:29
Re: String zerteilen649Sebastian66604.12.06 16:44

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel