投稿日 | : 2004/06/01(Tue) 13:40 |
投稿者 | : Renard |
Eメール | : |
URL | : |
タイトル | : Re^4: 英数字以外の削除の仕方 |
配列をうまく使えれば、これが一番速かったです。
Private Sub Command4_Click()
Dim lngStartTime As Long
Dim strOneLineDat As String
Dim strTemp(1 To 10000) As String
Dim intLoop As Integer
Dim dat As String
Dim i As Integer
strOneLineDat = "aAcd-0324-PあOI*POいL\AA"
lngStartTime = timeGetTime
For i = 1 To 10000
For intLoop = 1 To Len(strOneLineDat)
dat = Mid$(strOneLineDat, intLoop, 1)
If dat Like "[0-9A-Za-z]" Then
strTemp(i) = strTemp(i) & dat
End If
Next intLoop
Next i
strOneLineDat = Join(strTemp, "")
Label4.Caption = "timeGetTime : " & (timeGetTime - lngStartTime) / 1000
End Sub