首页 >> 读书频道 >> 电脑 >> 一个字符中的处理例子 - 格式化指定电话号码
 
· 数组数据排序的程序例子
· 支持中文的把普通字符串转
· 从当前时间来取得随机数
· 用ASP编写农历算法(三
· 使用ASP编写农历算法(
· 使用ASP编写农历算法(
· 也谈在asp聊天室程序中
· 实现聊天室的悄悄话功能(
· 实现聊天室的悄悄话功能(
· 实现聊天室的悄悄话功能(
· 一个只有一个文件,功能强
· 多层回复的基于 ASP
 
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 红楼梦:120回全本[清
· 武林寓言故事
· 2006高考录取规则
· 首批中国世界名牌产品和2
· 济南美食大全
· 管理三十六计
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

一个字符中的处理例子 - 格式化指定电话号码


查看有无更新版本

关键字:代码乐园 2006-8-28

 

电话号码格式化前: 1-800-555-1212
电话号码格式化后:(800) 555-1212

下面是源代码:
<%
'***** BEGIN FUNCTION AREA *****

' Formats a given 10 digit number into a nice looking phone number
' Example: given strNumber of 8005551212 you get (800) 555-1212
Function FormatPhoneNumber(strNumber)
Dim strInput ' String to hold our entered number
Dim strTemp' Temporary string to hold our working
text
Dim strCurrentChar ' Var for storing each character for
eval.
Dim I  ' Looping var

' Uppercase all characters for consistency
strInput = Ucase(strNumber)

' To be able to handle some pretty bad formatting we strip
out
' all characters except for chars A to Z and digits 0 to 9
' before proceeding. I left in the chars for stupid slogan
' numbers like 1-800-GET-CASH etc…
For I = 1 To Len(strInput)
strCurrentChar = Mid(strInput, I, 1)
' Numbers (0 to 9)
If Asc("0") <= Asc(strCurrentChar) And Asc
(strCurrentChar) <= Asc("9") Then
strTemp = strTemp & strCurrentChar
End If
' Upper Case Chars (A to Z)
If Asc("A") <= Asc(strCurrentChar) And Asc
(strCurrentChar) <= Asc("Z") Then
strTemp = strTemp & strCurrentChar
End If
Next 'I

' Swap strTemp back to strInput for next set of validation
' I also clear strTemp just for good measure!
strInput = strTemp
strTemp = ""

' Remove leading 1 if applicable
If Len(strInput) = 11 And Left(strInput, 1) = "1" Then
strInput = Right(strInput, 10)
End If

' Error catch to make sure strInput is proper length now
that
' we've finished manipulating it.
If Not Len(strInput) = 10 Then
' Handle errors as you see fit. This script
raises a real
' error so you can handle it like any other
runtime error,
' but you could also pass an error back via the
function's
' return value or just display a message… your
choice!
Err.Raise 1, "FormatPhoneNumber function", _
"The phone number to be formatted must be
a valid 10 digit US phone number!"

' Two alternative error techniques!
'Response.Write "<B>The phone number to be
formatted must be a valid phone number!</B>"
'Response.End

' Note if you use this you'll also need to check
for
' this below so you don't overwrite it!
'strTemp = "<B>The phone number to be formatted
must be a valid phone number!</B>"
End If

' If an error occurred then the rest of this won't get
processed!

' Build the output string formatted to our liking!
' (xxx) xxx-xxxx
strTemp = "("' "("
strTemp = strTemp & Left(strInput, 3)' Area code
strTemp = strTemp & ") " ' ") "
strTemp = strTemp & Mid(strInput, 4, 3) ' Exchange
strTemp = strTemp & "-" ' "-"
strTemp = strTemp & Right(strInput, 4)' 4 digit part

' Set return value
FormatPhoneNumber = strTemp
End Function

'***** END FUNCTION AREA *****
%>


<%' Runtime Code
Dim strNumberToFormat ' The phone number we pass to the function


' Retrieve the requested number or set it to the default
If Request.QueryString("phone_number") <> "" Then
strNumberToFormat = Request.QueryString("phone_number")
Else
strNumberToFormat = "1-800-555-1212"
End If

' We need to turn this on if we want to trap errors.
' Otherwise the script would generate an error if the input
' number wasn't correct.
On Error Resume Next
%>

<TABLE BORDER="1">
<TR>
<TD>Phone number before formatting:</TD>
<TD><%= strNumberToFormat %></TD>
</TR>
<TR>
<TD>Phone number after formatting:</TD>
<TD>
<%
' Call the function and output the results
Response.Write FormatPhoneNumber(strNumberToFormat)

' Check for an error and display the message if
one occurred
If Err.number Then Response.Write Err.description
%>
</TD>
</TR>
</TABLE>

<FORM ACTION="phone_format.asp" METHOD="get">
Phone number to format: <INPUT
TYPE="text" NAME="phone_number" VALUE="<%= strNumberToFormat %>">
<INPUT type="submit" value="Submit">
</FORM>

一个字符中的处理例子 - 格式化指定电话号码

[ 1 ]
一个字符中的处理例子 - 格式化指定电话号码 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑