質問編集履歴
1
ソースの入力ミス
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
strCheckPhone = Microsoft.VisualBasic.Replace(strCheckPhone, strPhone1 , "")
|
|
43
43
|
’固定電話番号
|
|
44
44
|
Else
|
|
45
|
-
strPhone1 = Strings.Mid(strCheckPhone, 1,
|
|
45
|
+
strPhone1 = Strings.Mid(strCheckPhone, 1, 12)
|
|
46
46
|
strCheckPhone = Microsoft.VisualBasic.Replace(strCheckPhone, strPhone1 , "")
|
|
47
47
|
End If
|
|
48
48
|
|
|
@@ -52,7 +52,7 @@
|
|
|
52
52
|
strPhone2 = Microsoft.VisualBasic.Mid(strCheckPhone, 1, 13)
|
|
53
53
|
strCheckPhone = Microsoft.VisualBasic.Replace(strCheckPhone, strPhone2 , "")
|
|
54
54
|
Else
|
|
55
|
-
strPhone2 = Strings.Mid(strCheckPhone, 1,
|
|
55
|
+
strPhone2 = Strings.Mid(strCheckPhone, 1, 12)
|
|
56
56
|
strCheckPhone = Microsoft.VisualBasic.Replace(strCheckPhone, strPhone2 , "")
|
|
57
57
|
End If
|
|
58
58
|
|