19-03-20 12:00 AM
| Winactor | remove preview | ||||||
|
|||||||
19-03-20 06:04 AM
19-03-20 06:36 AM
19-03-20 07:15 AM
19-03-20 07:16 AM
19-03-20 07:18 AM
19-03-20 10:15 AM
Dim para = 変換文字列
' 全角を半角に変換
Dim zenkaku() As String = New String() { ".","0","1","2","3","4","5","6","7","8","9" }
Dim hankaku() As String = New String() { ".","0","1","2","3","4","5","6","7","8","9" }
For i As Integer = 0 To Microsoft.VisualBasic.UBound(zenkaku)
Dim schPattern = zenkaku(i)
Dim repPattern = hankaku(i)
para = Microsoft.VisualBasic.Replace(para, schPattern, repPattern)
Next
変換後文字列 = para