Opgevraagde tekst splitsen.

[Techneut]

Vraag,

Ik wil graag een woord in tweeen splitsen mbv VB.
De eerste 4 karakters is een vaststaand gegeven.

Voorbeeld -> mgr.Jan.Terlouw

moet worden -> Jan Terlouw

Het zal ongetwijfeld simpel zijn, maar kom er niet uit.

Dacht zelf aan het volgende: (maar dat werkt dus voor geen meter.... )

'======================================================
'Lees mgr.Accounts in en zet deze om naar standaard gebruikersaccounts
'======================================================

Dim MgrAccounts As DAO.Recordset
Dim GevondenMgrAccounts As String
Dim MgrAccount As String

MgrAccount = ""

Set LeesMgrAccountsdb = CurrentDb()
Set LeesMgrAccounts = LeesMgrAccountsdb.OpenRecordset("Verzameling Usr_ComputerName_SpecUsers")

Do Until LeesMgrAccounts.EOF

GevondenMgrAccounts = LeesMgrAccounts("Username")

MgrAccount = Left(GevondenMgrAccounts, 4)

If MgrAccount = "mgr." Or MgrAccount = "MGR." Then
GevondenMgrAccounts = GevondenMgrAccounts - Left(GevondenMgrAccounts, 4)

Else
End If

If GevondenMgrAccounts = GevondenMgrAccountsCheck Then Exit Do
If GevondenMgrAccounts <> GevondenMgrAccountsCheck Then

LeesMgrAccounts.MoveNext

Loop

<vervolg code....>


Iemand een idee?????

Alvast bedankt...

 

[Bartuls]

mgr.Jan.Terlouw

Je moet gaan zoeken naar iets dat je als herkenningspunt kunt gebruiken.
In het door jouw gegeven voorbeeld is dat een punt.
Je kunt dan de functie instr() gebruiken om de positie van de punt te bepalen.
Vervolgens kun je met de functies left(), right() en mid() dat deel eruit halen dat je verder wilt gebruiken.
Als je, zoals in jouw geval, titels wilt uitsluiten zou ik de voorkomende titels in een tabel plaatsen en kijken of hij daarin voorkomt. Dan hoef je je code niet aan te passen als er een titel bij moet.

 

[Guus2005]

denk ook eens aan het split commando. die zet alles in een array. aan de hand van de index van de array kan je de afzonderlijke velden opvragen. wel even een punt als scheidingsteken opnemen.

 

[ReneDirks]

Nu is het al laat dus wellicht dat ik iets mis hier, maar laat me de vraag nog ff quoten:
> Ik wil graag een woord in tweeen splitsen mbv VB.
> De eerste 4 karakters is een vaststaand gegeven

Is het dan niet zo simpel als:
deel_1 = mid$(fieldname,1,4)
deel_2 = mid$(fieldname,5)

Mocht je dat dan in nieuwe velden willen stoppen kun je dit uiteraard met een bijwerkquery doen
update TBL_data set NewField1 = mid(fieldname,1,4)

etc