指定した文字を取り除く

タグの編集
投稿者 Beckham  (中学生) 投稿日時 2011/3/28 13:10:54
です
設定のjikan(値は"1000")を読み込んで、
textboxで後ろの0 2つを取り除いて表示させたいのですが、どうすればよいのか分かりません
アドバイスお願いします   m(_ _)mペコリ 
投稿者 るきお  (社会人) 投稿日時 2011/3/28 13:22:09
後ろのが 00 じゃない場合はどうしますか?

とりえあず、後ろの2文字が"00"の場合、その"00"を取り除く例

If jikan.EndsWith("00"Then
    jikan = Strings.Left(jikan, Len(jikan) -2)
End If


もっとスマートなやり方があるかも…。
投稿者 shu  (社会人) 投稿日時 2011/3/28 13:48:49
勝手にjikanをHHmmだと解釈して

Dim intJikan = CInt(jikan)
Dim intHr = intJikan \ 100
Dim intMin = intJikan mod 100

と書いてみる。
投稿者 Beckham  (中学生) 投稿日時 2011/3/28 13:50:26
タイマーの秒数だけを設定をしたいので、値が00以外になることはないです。(ミリ秒単位

アドバイスありがとうございます。
すみません
抜き出すして保存するところまでは自己解決しました。

VB中学校のサンプル集の
「文字列の一部を抜き出す」参考
Private Sub Form2_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load
        Dim jikan As String  '設定jikanの宣言 
        jikan = My.Settings.Jikan                   
        TextBox1.Text = (Strings.Left(jikan, 2))'1000の値を左から2番目まで抜き出す 
    End Sub

入力された値に00を付けて保存
        Me.TextBox1.AppendText("00")   ' テキストの末尾に文字列を追加する 
        My.Settings.Save()
        Me.Close()

すみません、
入力された値の中央に「.」を追加したいのですがどうすればよいでしょうか?
アドバイスよろしくお願いします!
投稿者 (削除されました)  () 投稿日時 2011/3/28 13:58:25
(削除されました)
投稿者 O-157  (その他) 投稿日時 2011/3/28 13:59:45
jikan = jikan.Insert(2, ".")でいけると思います