Lotus Notes / Domino Sonstiges > Tools & Downloads

Find , Replace in Felder

<< < (4/4)

Pascal:
und hier noch die Hardcoreversion ;-)

FIELD PhoneNumber := @If (@Left (PhoneNumber; 2) = "01" & !@Matches (@Middle (PhoneNumber; 2; 1); "{0123456789}"); "044" + @Right (PhoneNumber; @Length (PhoneNumber) - 2); PhoneNumber);

FIELD OfficePhoneNumber := @If (@Left (OfficePhoneNumber; 2) = "01" & !@Matches (@Middle (OfficePhoneNumber; 2; 1); "{0123456789}"); "044" + @Right (OfficePhoneNumber; @Length (OfficePhoneNumber) - 2); OfficePhoneNumber);


FIELD OfficeFaxPhoneNumber := @If (@Left ( OfficeFaxPhoneNumber; 2) = "01" & !@Matches (@Middle ( OfficeFaxPhoneNumber; 2; 1); "{0123456789}"); "044" + @Right ( OfficeFaxPhoneNumber; @Length ( OfficeFaxPhoneNumber) - 2);  OfficeFaxPhoneNumber);

FIELD HomeFaxPhoneNumber := @If (@Left ( HomeFaxPhoneNumber; 2) = "01" & !@Matches (@Middle ( HomeFaxPhoneNumber; 2; 1); "{0123456789}"); "044" + @Right ( HomeFaxPhoneNumber; @Length ( HomeFaxPhoneNumber) - 2);  HomeFaxPhoneNumber);


SELECT @All

Navigation

[0] Themen-Index

[*] Vorherige Sete