指定した文字を取り除く
投稿者 るきお  (社会人)
投稿日時
2011/3/28 13:22:09
後ろのが 00 じゃない場合はどうしますか?
とりえあず、後ろの2文字が"00"の場合、その"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
と書いてみる。
Dim intJikan = CInt(jikan)
Dim intHr = intJikan \ 100
Dim intMin = intJikan mod 100
と書いてみる。
投稿者 Beckham  (中学生)
投稿日時
2011/3/28 13:50:26
タイマーの秒数だけを設定をしたいので、値が00以外になることはないです。(ミリ秒単位
アドバイスありがとうございます。
すみません
抜き出すして保存するところまでは自己解決しました。
VB中学校のサンプル集の
「文字列の一部を抜き出す」参考
入力された値に00を付けて保存
すみません、
入力された値の中央に「.」を追加したいのですがどうすればよいでしょうか?
アドバイスよろしくお願いします!
アドバイスありがとうございます。
すみません
抜き出すして保存するところまでは自己解決しました。
VB中学校のサンプル集の
「文字列の一部を抜き出す」参考
Private Sub Form2_Load(ByVal sender As System.Object, ByVal 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, ".")でいけると思います
設定のjikan(値は"1000")を読み込んで、
textboxで後ろの0 2つを取り除いて表示させたいのですが、どうすればよいのか分かりません
アドバイスお願いします m(_ _)mペコリ