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