カテゴリー: VB.NET

strConv関数を使うことで、文字列の種類を変えられる。

■例）

 Dim Text As String = "ＷＨＡＴ　ＴＩＭＥ　ＩＳ　ＩＴ　ＮＯＷ？"
 Dim narrowText As String = StrConv(Text, VbStrConv.Narrow)

・VbStrConv.Narrow で文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換
・VbStrConv.Wide で文字列内の文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換

他にも、VbStrConv.XXXで指定することにより、ひらがなからカタカナ、
繁体字を簡体字、というように変換用のセットが用意されているため、
簡単に変換することができる。

なお、例のように全角文字から半角文字に変換する場合、
文字列に含まれたカタカナが半角カタカナに変換されてしまうので注意が必要。

カタカナのケアだけ別途やる必要があるので、万能ではない。
カタカナが混じる場合は、別途組み合わせて対応が必要。

VBで、どうしても「アルファベットの月表示 日, 年」のフォーマットで出力する必要があった。
表示が「August 31, 2012」になるように整えなければならなったのだ。
（今回は、本当にVB.NETでやった。古くて大変だった・・・）
いろいろと調べてみると、上のフォーマットに曜日や時間つきで
表示するフォーマットはあったが、月と日と年だけを表示するという
フォーマットはなかった。

組み合わせることによって、下記のフォーマットでいけることが判明。

 "MMMM d, yyyy"

ポイントは、MMMMのところ。これにより、月が省略されない形で表示される。

しかし、問題はこれだけではなく、日付の出力では実行環境のロケールをみていることが判明。
英語で出力しようとしていたら、日本語で出力されて、文字化け。
（ちなみにどんな日本語で出力されたかは不明・・・）
整形して出力する際に、ロケールを指定する必要があった。

こんな感じで書くとよい

 Dim usDate as Date = Date.Now()
 Dim culture As New System.Globalization.CultureInfo("en-us")
 Label.text = usDate.ToString("MMMM d, yyyy", culture)

関数にするなら、こんな感じ。
（日付フォーマット以外の文字列を渡すとクラッシュするので、その場合は空文字を返すようにしている）

     '----------------------------------------------------
     ' August 31, 2012 のフォーマットで文字列を返す関数
     '----------------------------------------------------
     Private Function getDateMDYformat(ByVal str As String)
         Try
             Dim usDate As Date = str
             Dim culture As New System.Globalization.CultureInfo("en-us")
             Return usDate.ToString("MMMM d, yyyy", culture)
         Catch ex As Exception
             Return ""
         End Try
 
     End Function

ロケールによって出力が変わるというところは、かなりハマった。
CultureInfoでちゃんと指定してやれば、US以外のフォーマットでも出せるとわかったのはめっけもん。
VBは、やれることは多いんだけど、調べるのが大変だ。

VBで変数やコントロールに改行コードを入れるには、vbCrLfを指定する。
（ControlChars.CrLf と指定してもよい）

■使い方

 Dim str As String
 str = "一行目" & vbCrLf
 str &= "2行目"

ちなみに vbCr ならキャリッジリターン、vbLf ならラインフィードになる。
開発によっては、vbLfを使うこともありえる。

VBでコードを書いているとコードの冒頭に定数宣言などを多数書く。
これが長くなってしまうとソースコードの可読性が下がってしまう。
定数宣言などが長くなる場合には、#Region ディレクティブ / #End Region ディレクティブ を使用し読みやすくする。

#Region ディレクティブを使用することで、Visual Studioのコードのアウトライン機能で 展開や折り畳みができるようになる。

■使い方

Public Class DefaultClass

#Region "定数宣言"
   Private Const ACTIVE_FLAG = 1
   Private Const NONACTIVE_FLAG = 0
   Private Const TAX = 0.05
#End Region

VBで全角のダブルクォート”を入力しようとすると、
半角のダブルクォートに 自動変換されてしまう。
VBで全角のダブルクォートを指定する場合は、　Chr(&H8168)　 のように指定する。

Chr(&H8168)

半角のダブルクォートの場合は、　ControlChars.Quote　と指定する。

ASP.NETでSessionを使用していると個別に作成したセッション変数
（例えばSession(“id”)とか）を削除したい場面がある。
ASP.NETで一度作成したSession変数を削除するには、Removeメソッドを使用する。

■使い方

 Session.Remove("セッション変数名") 

Removeメソッドに個別のセッション変数を指定することで必要のないものを削除できる。
ちなみに、

 Session("セッション変数名") = Nothing

だと、セッション変数の中身がなくなるだけで、セッション変数は残り続ける。
セッション変数がある状態の場合、サーバ側のリソースが消費されている状態のため、
使わなくなったセッション変数はRemoveメソッドで破棄することが望ましい。

また、すべてのセッション変数を消す（破棄する）には、RemoveAllメソッドを使用する。

■使い方

 Session.RemoveAll()

これでまとめて破棄することができる。
ただし、自分が意図しないセッション変数も削除されてしまうため、使用する場合には
他への影響がないか確認しておく必要がある。

■例）

 'Session変数を新しく作る
 Session("userName") = "CharAznable"
 
 'Session変数を破棄する
 Session.Remove("userName")

とても初歩的ことなのだが、VB.NETで変数またはLabelなどのtextに　”（ダブルクォート）を入れる方法。

VB.NETでは、文字列を”で囲む必要があるため、ダブルクォートで囲まれた場合は文字列として認識してしまう。
“を変数やLabelのtextに入れる場合、１つだけ書いてしまうとそこで文字列が終わったことになってしまう。
‘ シングルクォートで囲もうにも、これはコメントアウトとして用いられるので使えない。
ダブルクォートを変数に入れる場合には、ダブルクォートを２回連続で入力することでエスケープされる。

たとえば、こんな感じ。

 Dim Str1 AS String = "ダブルクォートは、""と入れる"

ダブルクォートだけを入れたい場合はこうなる。

 Dim Str2 AS String = """"  '4つ連続で入れると１つだけ変数に入る。

よくやりそうなあたりだと、こんな感じか。

 Dim Email AS String = "hoge@xenos.jp"
 Dim Name AS String = "ほげ"
 Dim Address AS String
 
 Address = """" & Name & """,""" & Email & """"

これだと、”hoge”,”hoge@xenos.jp” になる。
ダブルクォートだらけで混乱しそうだ。
個数は、インテリセンスが警告してくれるので、どこかで気がつくだろう。
初歩的なことだが、知らないと入力しようがなく時間がとられてしまう。
一度、覚えてしまえば特殊すぎて忘れない（はず）。