telephone number manipulation

Hi

How can I manipulate this string    -800-238-7828

to end up with this string      (800) 238 7828

Thanks

Mike  
BulldogMikeAsked:
Who is Participating?
 
Sjef BosmanConnect With a Mentor Groupware ConsultantCommented:
Oh shoot, my bad... :$  And Notes R5, eh? The code will indeed be different then:

tel:= @Trim(@Explode(TEM_CBK_PHN_NB; "-"));
telf:= "(" + @Subset(@Subset(tel; 2);-1) + ") " + @Subset(@Subset(tel; 3);-1) + " " + @Subset(@Subset(tel; 4);-1);

0
 
gingerdebConnect With a Mentor Commented:
Try:

Dim ictr as Integer
Dim origString as String
Dim tmpString as String

origString = "-800-238-7828"

ictr = Instr(origString, "-")
While ictr > 0
     If ictr = 1 Then
          tmpString = "(" + Mid$(origString, ictr+1)
     Elseif ictr = 5 Then
          tmpString = Left$(tmpString, ictr-1) + ") " + Mid$(tmpString, ictr+1)
     Else
          tmpString = Left$(tmpString, ictr-1) + " " + Mid$(tmpString, ictr+1)
     End if
     ictr = Instr(tmpString, "-")
Wend
0
 
Sjef BosmanGroupware ConsultantCommented:
Split can be your friend...

x= Split(orig, "-")
conv= "(" + x(1) + ") " + x(2) + " " + x(3)

If you want to accept multiple input formats, have a look at Regex:
http://www.regular-expressions.info/vb.html

If you want it in formula language:

x:= @Trim(@Split(orig; "-"));
conv:= "(" + x[1] + ") " + x[2] + " " + x[3];
0
Cloud Class® Course: Amazon Web Services - Basic

Are you thinking about creating an Amazon Web Services account for your business? Not sure where to start? In this course you’ll get an overview of the history of AWS and take a tour of their user interface.

 
larsberntropConnect With a Mentor Commented:
hey sjef:  You forgot fulltrim in the script example:

Function FormatPhone(strPhoneMin$) As String
   Dim x As Variant
   x = Fulltrim(Split(strPhoneMin, "-"))
   If Ubound(x) > 1 Then
      FormatPhone = "(" & x(0) & ") " & x(1) & " " & x(2)
   Else
      FormatPhone = Join(x)
   Endif
End Function

Open in new window

0
 
Sjef BosmanGroupware ConsultantCommented:
Yes, I could have added it, but it's up to Mike to fit the code in. Just mentioned some options...
0
 
BulldogMikeAuthor Commented:
Hi

Maybe I shpuld have shared this with you before - could you indicate how to work you solutions into these statements: the TEM_CBK_PHN_NB and TEM_FAX_NB components are the telephone and fax numbers repectively

@ProperCase(PHP_ADR_LN1) + ",  " + @ProperCase(LOC_CD) +
@NewLine  + @ProperCase(PHP_ADR_LN2) +
@NewLine + TEM_CBK_PHN_NB +
@NewLine +  TEM_FAX_NB + "  " + "Fax"

Thank you for your help.  it looks like you all will get points on this one

Mike
0
 
Sjef BosmanGroupware ConsultantCommented:
As I expected: formula :-)

Instructions?
You take the keyboard, you type the I, then the .... C'mon man, think and try by yourself first!

Hint --- add these lines at least once:

tel:= @Trim(@Split(TEM_CBK_PHN_NB; "-"));
telf:= "(" + tel[1] + ") " + tel[2] + " " + tel[3];

and use telf instead of TEM_CBK_PHN_NB
0
 
BulldogMikeAuthor Commented:
Sorry Seif

I am a healthcare professional and a novice programmer at best - I learn to program by reading books and doing it on the job.  This is basic stuff for you but it's Greek to me since I lack formal IT training

Thanks

Mike
0
 
BulldogMikeAuthor Commented:
Apparently @ SPLIT is not an available function in Notes 5.0

Should I use @ left or @middle to parse the data as an alternative?

Thank You

Mike
0
 
BulldogMikeAuthor Commented:
As always these experts are very helpful.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.