最近VB6からVB.NETに開発環境が変わったのですが、
良く使用していた関数が使えなくなってしまいました。
指定したバイト数でカットする関数なのですが、
StrConvは大文字小文字や半角全角の変換しかできなくなっていますし、
LeftBはなくなってしまいました。
LeftBも調べたのですが、あまり良い例が見つからずにいます。
丸投げになってしまって申し訳ありませんが、
何か代わりになる機能は無いでしょうか?
泣き別れの判定は結構です。
以下がVB6のモジュールです。よろしくお願いいたします。
Public Function pfCut(ByVal Str As String, Lng As Long) As String
Str = Str & Space(Lng)
Str = StrConv(Str, vbFromUnicode)
Str = LeftB(Str, Lng)
Str = StrConv(Str, vbUnicode)
pfCut = Str
End Function
Encodingクラスを使います。
じゃんぬさんのサイトを参考にどうぞ。
http://jeanne.wankuma.com/tips/string/leftb.html
早々のお返事ありがとうございます。
まさしくこれが欲しかったんです。
調査が足りなかったようです。
ツイート | ![]() |