2021-03-09から1日間の記事一覧
ひらがなだけ取り出して、ついでにひらがな以外も取得。 For i = 1 To Len(tmp) If Mid(tmp, i, 1) Like "[あ-ん]" Then hiragana = hiragana & Mid(tmp, i, 1) Else sonota = sonota & Mid(tmp, i, 1) End If Next i '別解 For i = 1 To Len(tmp) s = Mid(t…
ひらがなだけ取り出して、ついでにひらがな以外も取得。 For i = 1 To Len(tmp) If Mid(tmp, i, 1) Like "[あ-ん]" Then hiragana = hiragana & Mid(tmp, i, 1) Else sonota = sonota & Mid(tmp, i, 1) End If Next i '別解 For i = 1 To Len(tmp) s = Mid(t…