質問編集履歴
1
ソースの入力ミス
test
CHANGED
File without changes
|
test
CHANGED
@@ -86,7 +86,7 @@
|
|
86
86
|
|
87
87
|
Else
|
88
88
|
|
89
|
-
strPhone1 = Strings.Mid(strCheckPhone, 1, 1
|
89
|
+
strPhone1 = Strings.Mid(strCheckPhone, 1, 12)
|
90
90
|
|
91
91
|
strCheckPhone = Microsoft.VisualBasic.Replace(strCheckPhone, strPhone1 , "")
|
92
92
|
|
@@ -106,7 +106,7 @@
|
|
106
106
|
|
107
107
|
Else
|
108
108
|
|
109
|
-
strPhone2 = Strings.Mid(strCheckPhone, 1, 1
|
109
|
+
strPhone2 = Strings.Mid(strCheckPhone, 1, 12)
|
110
110
|
|
111
111
|
strCheckPhone = Microsoft.VisualBasic.Replace(strCheckPhone, strPhone2 , "")
|
112
112
|
|