[VB.NET]文字列の右からn文字削除する

-



文字列.SubString( 0, Len(文字列) - 消したい文字数)

・例

Dim mozi As String = "詳細設定モード"
mozi = mozi.SubString( 0, Len(mozi) - 3)
これでmozi = "詳細設定" になる

・説明

文字.SubString( 数, 数)・・・指定した文字列の(左側から数えて指定した位置から , 文字数分)を取り出し、残りを削除した結果を返します。

Len( 文字 )・・・指定した文字列の長さを測り、文字数を返します。

・コメント

初歩的かもしれませんが、最初に躓いたものです。右から考えるのはなんでこんな回りくどいの...と思ってます。

コメント

コメントを投稿

このブログの人気の投稿

[VB.NET]テキスト等チェンジイベントを有効化・無効化する

-
テキスト等のチェンジイベントは便利ですが、初期化（文字をクリア）の時などにも反応してしまいます。そういう時にイベントを動かさないようにするための方法です。 今回はDGV(データグリッドビュー)内のセル(１マス)バリューチェンジイベントで行います。 例     'DGV内セルテキストチェンジイベント     Private Sub DGV_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) '↑本来は末尾に、Handles DGV.CellValueChangedと記述されているが、削除する         'ここにチェンジイベントが起きた時の動きを記述     End Sub     'イベント有効化     AddHandler DGV.CellValueChanged, AddressOf DGV_CellValueChanged     'イベント無効化     RemoveHandler DGV.CellValueChanged, AddressOf DGV_CellValueChanged 説明 AddHandler イベント本体 , AddressOf イベント名 RemoveHandler 　〃　　　, 　　　　〃 イベントに、イベント本体？を関連付け、あるいは関連を外します。 コメント 普通、記述時にイベントをデザイナーのダブルクリックなどで呼び出しますが、自動で Handles DGV.CellValueChanged のように、イベント末尾にイベント本体が記述されています。それを削除する事で何にも反応しないコードになります。その後、AddHandlerで関連付けする、外すことで有効化、無効化できます。テキスト等の切り替わりを監視するタイミングを自由に変えられるので、知っていると便利です。
続きを読む

[VB.NET]コンボボックスの１アイテムに2つ以上の値を持たせる

-
２つの値、つまりIDと名前など (001, 太郎)を、コンボボックスComboBox(プルダウンメニュー)に入れる。そして選択アイテムとして名前の方を表示したい時の方法です。IDは内部データとして隠れます。 例     'クラス作成     Public Class CBList ' 変数宣言         Private idV As String         Private nameD As String ' ここで値を受け取る         Public Sub New(ByVal ID As String, ByVal Name As String)             idV = ID             nameD = Name         End Sub ' IDプロパティ宣言         Public ReadOnly Property ID() As String             Get                 Return idV             End Get         End Property ' Nameプロパティ宣言         Public ReadOnly Property Name() As String             Get           ...
続きを読む

[VB.NET]８ケタの文字列を日付に変換する

-
テキストボックス1に入力された８ケタの数字（文字列）を日付（0000/00/00）に変換する 例   修正済み '変数宣言   Dim moziRetu As String =  Textbox1.text     Dim hiduke As Date '文字列を数値型に変換。/スラッシュを挿入 'それが日付型に変換できるか確認し、変換出来たらテキストボックスに表示   If Date.TryParse( Format(CInt(moziRetu), "####/##/##") , hiduke) Then          TextBox1.Text = Format(hiduke, "yyyy/MM/dd")   End If 説明 細かな説明は後日します。ポイントは、 日付型に変換するには1111/11/11のようにスラッシュが入っていなければならない ということです。そのため文字型を一旦数値型にしてFormatをつかい/スラッシュを挿入しています。 コメント 個人的にプログラムコードが長く行が増えるほど読む気がなくなります。（上司には短くするより見やすさをと助言をもらってますがまだ慣れません^^;） なので省きましたが、入力された文字が数字ではなかった場合や、間に数字でないものが入っていた場合のエラー防止に下記のコードを先頭に挿入すると便利です。 変数宣言   Dim mozi As String = String.Empty ループして一文字ずつ取り出し、   For i = 0 To Len(TextBox1.Text) - 1         mozi = TextBox1.Text.Substring( i, 1) 数値型に変換できるか確認し、（変換はせずに）結合          If IsNumeric(mozi) Then         ...
続きを読む