email adres inkorten

[Marco H.]

Hallo Allen,

 

Graag zou ik een e-mailadres willen inkorten vanaf het "@" teken. Dus "voorbeeld@website.nl" wordt "@website.nl". Ik ben bezig geweest met de Left functie maar deze biedt geen oplossing omdat het aantal tekens voor het "@" teken variabel is. Uiteraard heb ik ook op het forum gezocht. Tot nu zonder resultaat.

 

Alvast dank voor het meedenken!

Marco

[JeanWM]

Je zou iets kunnen doen zoals:

 

Let([
pn = yourField ;
len = Length( pn ) ;
sg = "@" ;
pos = Position( pn ; sg ; 1 ; 1 )
] ;
Right( pn ; len - pos +1  ) 
)

[Marco H.]

Het werkt als een zonnetje

Begrijpen doe ik het nog niet helemaal, maar daar ga ik me nu eens in verdiepen. Dank JeanWM voor de snelle reactie!

[JeanWM]

Je kijkt eerst naar iets dat in alle gegevens "hetzelfde" is.

 

In jouw geval is dat het "@" teken.

 

Wat je wil hebben is alles wat er na dat teken komt.

 

Je moet dus weten 'waar' dat teken zit, in alle omstandigheden.

 

Daarvoor gebruiken we de Position() functie.

 

Position ( text ; searchString ; start ; occurrence )

text: yourField

searchString: het teken [@]

start: van waar beginnen we te tellen in yourField

occurence: indien er meerdere zouden zijn, welk is het [in jouw geval is het er maar 1, dus...1]

 

De Right functie is:

Right ( text ; numberOfCharacters )

text: yourField

numberOfCharacters: hoeveel charcters we nodig hebben {alles vanaf het @ teken tot het einde [vanaf = het teken niet inbegrepen, daarom nemen we er eentje meer, hence de +1]:

 

Right( pn ; len - pos +1

 

We nemen dus alles te beginnen van de rechterkant voor een aantal pos + 1.

 

Je kunt alles omzetten in cijfers:

voorbeeld@website.nl = 20 characters

@ staat op positie 10

lengte = 20

len - pos +1 = 20 - 10 + 1 = 11

 

@website.nl = 11 characters als je van rechts begint te tellen

 

Net wat je nodig hebt.

[hbrendel]

Waarom niet gewoon:

 

Middle ( EmailField ; Position ( EmailField ; "@" ; 1 ; 1 ) ; 9999 )

[JeanWM]

Dat zit bij ons in de category "simplify the coding".

 

Ten andere de '9999' parameter werkt niet bij het uitwisselen van portable code van FM naar Sentences.

Dus gebruiken we dat nooit.

 

Ook omdat mogelijke 'beginners' denken bij numberOfCharacters = 9999.....ik heb geen 9999 characters....

[Mark]

Korter kan het volgens mij niet:

 

"@" & RightValues(Substitute(EmailField; "@"; "¶"); 1)

Edited September 30, 2011 by Guest

[JeanWM]

Korter kan het volgens mij niet:

 

Left(EmailField ; Position( EmailField ; "@"; 1; 1) - 1)

 

 

 

Dat geeft alles wat voor het @ teken staat....

[Mark]

Ik zag het al. Ik heb hem ondertussen aangepast...

[JeanWM]

Korter kan het volgens mij niet:

 

"@" & RightValues(Substitute(EmailField; "@"; "¶"); 1)

 

 

Dat gaat waarschijnlijk een "?" weergeven [not tested].

 

Met Substitute in combinatie met "¶" heb je alles nodig wat na het @ komt....

 

Let ([
pn = yourField ;
pnValues = Substitute ( pn ; [ "@" ; "¶@" ] )
];
GetValue ( pnValues ; 2 )
)

[Mark]

"@" & RightValues(Substitute(EmailField; "@"; "¶"); 1)

 

Dat gaat volgens mij goed [tested]...

[JeanWM]

 

Dat gaat volgens mij goed [tested]...

 

Geen probleem dan...

[hbrendel]

Dat zit bij ons in de category "simplify the coding".

Dat is mijn hoofdcategorie...

 

Ten andere de '9999' parameter werkt niet bij het uitwisselen van portable code van FM naar Sentences.

Wat is 'Sentences'? Het gaat hier over FM...

 

Ook omdat mogelijke 'beginners' denken bij numberOfCharacters = 9999.....ik heb geen 9999 characters....

So what?