
当ブログの記事中に掲載しているソースコードをコピーしてVBEなどのエディターに貼り付けると、行頭の空白が変な文字に変換されててそのままでは使えないことがあります。
たとえば、このようなソースコードをコピーして、
1 2 3 4 5 6 7 | Public Sub MakeForm() CreateForm DoCmd.Restore End Sub |
AccessのVBEに貼り付けてみると、

頭に「?」が並んだ状態になってしまいます。
これでは当然コンパイルできませんし、実行も出来ません。
調べてみると、どうやらこれはno-break spaceというものでWeb上で複数の空白を表現するのに使われたりするらしいんです。そしてUTF-8だと0xC2A0のコードになるようなんです。
あと気になるのは、この現象が起きるのはChromeだけなんですよね。
FirefoxやEdgeだと起きません。
なんなんですかね。
Javascriptの解釈の仕方が違うんですかね。
まあでも、このブログのアクセスの6割ぐらいがChromeからで無視するわけにはいかないんで、この0xC2A0を0x20に変換するスクリプトを作ってみました。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 | ################################################################################ # Convert-C2A0.ps1 # # 0xC2A0を0x20に変換する # ################################################################################ #コードを変換 function ConvertStr{ param( $code ) [Byte[]] $data = [System.Text.Encoding]::UTF8.GetBytes( $code ) [byte[]] $b = @() [bool] $flag = $false for ( $i =0; $i -lt $data .Count; $i ++) { if ( $data [ $i ].ToString( "X2" ) -eq "C2" ) { $preIndex = $i $flag = $true } elseif (( $flag -eq $true ) -and ( $data [ $i ].ToString( "X2" ) -eq "A0" )) { $b += 0x20 $flag = $false } elseif (( $flag -eq $true ) -and ( $data [ $i ].ToString( "X2" ) -ne "A0" )) { $b += $data [ $preIndex ] $b += $data [ $i ] $flag = $false } else { $b += $data [ $i ] } } $str = [System.Text.Encoding]::UTF8.GetString( $b ) return( $str ) } Add -Type -AssemblyName System.Windows.Forms Add -Type -AssemblyName System.Drawing #フォーム $form = New-Object System.Windows.Forms.Form $form .Text = "Convert C2A0" $form .Size = New-Object System.Drawing.Size(400,240) $form .StartPosition = "CenterScreen" #ラベル $label = New-Object System.Windows.Forms.Label $label .Location = New-Object System.Drawing.Point(20,15) $label .Size = New-Object System.Drawing.Size(250,20) $label .Text = "コードを貼り付けて変換ボタンを押してください。" $form .Controls.Add( $label ) #テキストボックス $textBox = New-Object System.Windows.Forms.TextBox $textBox .Location = New-Object System.Drawing.Point(20,40) $textBox .Multiline = $True $textBox .AcceptsReturn = $True $textBox .AcceptsTab = $True $textBox .WordWrap = $True $textBox .ScrollBars = [System.Windows.Forms.ScrollBars]::Vertical $textBox .Anchor = (([System.Windows.Forms.AnchorStyles]::Left) ` -bor ([System.Windows.Forms.AnchorStyles]::Top) ` -bor ([System.Windows.Forms.AnchorStyles]::Right) ` -bor ([System.Windows.Forms.AnchorStyles]::Bottom)) $textBox .Size = New-Object System.Drawing.Size(340,110) $textBox .Add_KeyDown({if ($_.Control -and ($_.KeyCode -eq [System.windows.forms.Keys]::A)) { $textBox .SelectAll()}}) $form .Controls.Add( $textBox ) #変換ボタン $ConvertButton = New-Object System.Windows.Forms.Button $ConvertButton .Location = New-Object System.Drawing.Point(270,10) $ConvertButton .Size = New-Object System.Drawing.Size(75,23) $ConvertButton .Text = "変換" $ConvertButton .Anchor = (([System.Windows.Forms.AnchorStyles]::Left) ` -bor ([System.Windows.Forms.AnchorStyles]::Top)) $ConvertButton .Add_Click({ $textBox .Text=ConvertStr $textBox .Text; ` [System.Windows.Forms.MessageBox]::Show( "変換が完了しました。" )}) $form .Controls.Add( $ConvertButton ) #閉じるボタン $ExitButton = New-Object System.Windows.Forms.Button $ExitButton .Location = New-Object System.Drawing.Point(285,160) $ExitButton .Size = New-Object System.Drawing.Size(75,23) $ExitButton .Text = "閉じる" $ExitButton .Anchor = (([System.Windows.Forms.AnchorStyles]::Right) ` -bor ([System.Windows.Forms.AnchorStyles]::Bottom)) $ExitButton .Add_Click({ $form .Close()}) $form .Controls.Add( $ExitButton ) #フォームを常に手前に表示 $form .Topmost = $True #フォームをアクティブにし、テキストボックスにフォーカスを設定 $form .Add_Shown({ $textBox . Select ()}) #フォームを表示 $result = $form .ShowDialog() |
使用法
まず、上記スクリプトを名前を付けてファイルに保存し、PowerShellのプロンプトで実行してください。
スクリプトを実行すると、このような画面が表示されます。

画面が表示されたらテキストボックスにソースコードを貼り付け、[変換]ボタンをクリックします。

変換が終わるとこのようなメッセージが表示されます。
変換後の文字列が同じテキストボックスに表示されますので、このテキストボックスのソースコードをコピーして使ってください。
スポンサーリンク