No.2ベストアンサー
- 回答日時:
>文字列が、Unicodeの2バイト扱いになるので、
>サポートされていないと記述されていました。
無かったら、作るしかないですね。
私も最初、はまりました。
Public Shared Function MidB(ByVal value As String, ByVal start As Integer, ByVal length As Integer) As String
'バイト数に応じた部分文字列を取得する
Dim encod As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
Dim bytes As Byte() = encod.GetBytes(value.PadRight(start + length))
Return encod.GetString(bytes, start - 1, length)
End Function
Public Shared Function LeftB(ByVal value As String, ByVal length As Integer) As String
'バイト数に応じた部分文字列を取得する
Dim encod As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
Dim bytes As Byte() = encod.GetBytes(value.PadRight(length))
Const start As Integer = 0
Return encod.GetString(bytes, start, length)
End Function
Public Shared Function RightB(ByVal value As String, ByVal length As Integer) As String
'バイト数に応じた部分文字列を取得する
Dim encod As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
Dim bytes As Byte() = encod.GetBytes(value.PadLeft(length))
Dim start As Integer
start = UBound(bytes) + 1 - length 'バイト数
Return encod.GetString(bytes, start, length)
End Function
Public Shared Function LenB(ByVal vstr As String) As Integer
If vstr = "" Then
Return 0
Else
Return System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(vstr)
End If
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelの文字列を数字に変換する方法について 6 2023/07/31 21:18
- その他(プログラミング・Web制作) プログラミング python pandas 固定長データの出力 2 2022/08/16 11:22
- Excel(エクセル) エクセル関数の変わった使い方 3 2022/05/13 17:12
- Excel(エクセル) LEFT関数で文字数を指定しないで取りだす方法 7 2023/06/30 09:49
- その他(コンピューター・テクノロジー) googleスプレッドシートでカッコ内の文字数をカウントしたい 1 2023/01/17 15:52
- Excel(エクセル) Excelの数字(文字列)合計について あるデータをダウンロードすると、数字データが全て文字列になっ 4 2022/09/26 21:21
- PostgreSQL 数値が定期的にあらわれる文字列から、いくつめに出現した数値が指定して切り出したい 1 2023/06/08 13:12
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- その他(プログラミング・Web制作) テキストエディタで複数行にわたる文字列の行頭に番号を振る方法 4 2023/03/11 12:57
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VB6.0の「vbFromUnicode」はVB.NETではどれに相当しますか?
Visual Basic(VBA)
-
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
VS 2008(VB.NET)
Visual Basic(VBA)
-
-
4
VBの「As String * 128」とは?
Visual Basic(VBA)
-
5
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「1TB」のHDDに日本語は何字入...
-
char str[256]の256の意味は?
-
10Mバイトて文字数に すると何...
-
バイナリとBCDコード
-
ピクセル,dpiから容量(バイト...
-
質問です。
-
VBSでテキストファイルの文字列...
-
UTF-8で5~6バイトになる文字コ...
-
COBOLのCOMP形式について
-
エクセルシート名の制限を変更...
-
UTF-8コードの正規表現
-
VBでShift_JISへurlエンコード...
-
VBAでUnicodeしか存在しない文...
-
pythonでバイナリデータを配列...
-
Visual Basicでパック10進(2進...
-
ビットスワップとバイトスワッ...
-
バイト列とバイナリ列の違いが...
-
1KBが1024byteな理由
-
SQLで1バイト、2バイト混在...
-
文字列の最後の一字を削除
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
10Mバイトて文字数に すると何...
-
UTF-8で5~6バイトになる文字コ...
-
char str[256]の256の意味は?
-
エクセルシート名の制限を変更...
-
COBOLのCOMP形式について
-
「1TB」のHDDに日本語は何字入...
-
バイナリとBCDコード
-
ビットスワップとバイトスワッ...
-
ピクセル,dpiから容量(バイト...
-
バイト列とバイナリ列の違いが...
-
SQLで1バイト、2バイト混在...
-
【VB2005】テキストボックス内...
-
Javaで日本語1文字のバイト数
-
1KBが1024byteな理由
-
3バイト文字(UTF-8)をprintfで...
-
C++ Builderで文字列をバイトに...
-
機種依存文字をチェックしたい。
-
半角、全角の判別方法
-
文字コードの利点・欠点について
-
64bit対応
おすすめ情報