エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
エンコード・デコードの仕方
(゜▽゜*)♪ニパッ 個人的なロジック公開しちゃう バグあるかも? Sub Main() MsgBox convUrltoUni("%a4%d... (゜▽゜*)♪ニパッ 個人的なロジック公開しちゃう バグあるかも? Sub Main() MsgBox convUrltoUni("%a4%db%a4%b2%a4%db%a4%b2+%a4%db%a4%cb%a4%e3%a4%e9%a4%e9%a1%c1") End Sub Public Function convUrltoUni(inVal As String) Dim lngLen As Long '文字長 Dim lngFindPos As Long '%文字を見つけた位置 Dim lngStart As Long '検索開始位置 Dim strWk As String '文字列連結用ワーク Dim blnHigh As Boolean '文字列が全角か半角によって切り替わるフラグ Dim bytWk As Byte '「%**」の値 Dim