プログラミングメモ

思った通りに動いてくれて嬉しかったこと

vb.net

フォルダ内のファイル一覧を取得し表示してみる

概要 指定した、フォルダ内のファイルを一覧表示します。 準備 WindowsフォームVBプロジェクトのフォーム上に Button.Button1(FolderBrowserDialog表示用) Button.Button2(ファイルリスト取得実行用) ListBox.ListBox1(ファイルリスト表示用) FolderBrowserD…

Csvファイルを読み込みDataGridViewへ表示してみる

概要 Csvファイルを読み込みDataGridViewへ表示します。 なお、Csvファイル1行目はヘッダー行として扱い DataColumnを生成します。 準備 WindowsフォームVBプロジェクトのフォーム上に Button.Button1(DTTest呼び出し用) DataGridView.DataGridView1 を設置…

VB.Netよりコマンドを実行

概要 VB.Netよりコマンドを実行し、結果をTextで返します。 Function Runcmd(strcmd As String) As String 'Processオブジェクト Dim proc As New System.Diagnostics.Process() With proc.StartInfo 'ComSpecパスの取得 .FileName = System.Environment.Get…

DataTable・DataGridViewを使ってみる

サンプル1 概要 今日以前30日間分のアクセス数(乱数)をDataGridViewへ表示してみる。 準備 WindowsフォームVBプロジェクトのフォーム上に Button.Button1(DTTest呼び出し用) DataGridView.DataGridView1 を設置してください。 Private Sub Button1_Clic…

指定桁数左0埋め

解説 Integer型の値をStringに変換と同時に左側へ0を連結します。 その後、右側より指定桁数を抜き取ります。 String.Format()などでも可能かと思います。 vb.net 'テストデータ Dim Arr() As Integer = {1, 12, 123, 1234, 12345} Dim buf As String For E…

文字列から指定位置の文字列を抜き取る

解説 mid関数などもありますが、ここではSubstring関数を利用します。 vb.net 'データ Dim FileName As String = "calc.exe" '.(ドット)より前を取得 Dim Name As String = FileName.Substring(0, FileName.LastIndexOf(".")) '.(ドット)より後ろを取得 Dim …

String.Splitで文字列内の指定文字を区切り文字として配列に分割

サンプル1 'テキストデータ Dim sampledata As String = "日時,天気,温度" '区切り文字 Dim delimiter As Char = "," 'Sprit受け取り配列Dim array() As String array = sampledata.Split(delimiter) For Each bufstr In array Console.WriteLine(bufstr)Ne…