2015-05-18から1日間の記事一覧
濁点と半濁点に対応しただけだけど…。 Public Function 濁点半濁点統合(buf As String) As String Dim buf2 As String '返り値格納 buf2 = "" '返り値の初期化 For i = 1 To Len(buf) If AscW(Mid(buf, i, 1)) = 12441 Then '濁点 buf2 = Left(buf2, Len(buf…
濁点と半濁点に対応しただけだけど…。 Public Function 濁点半濁点統合(buf As String) As String Dim buf2 As String '返り値格納 buf2 = "" '返り値の初期化 For i = 1 To Len(buf) If AscW(Mid(buf, i, 1)) = 12441 Then '濁点 buf2 = Left(buf2, Len(buf…