C# VB Web システム開発の部屋

システム開発で役に立つコードを厳選したブログです。

VB.NET

【VB.NET】過去日付のフォルダを削除する<フォルダ名=yyyyMMdd(日付)の場合>

// ’サンプルコードDim dt As Date = '日付(yyyy/MM/dd)'←これより過去の日付は削除されるDim Folders As String() = Directory.GetDirectories ('フォルダのパス', "*", SearchOption.AllDirectories)For I As Integer = 0 To Folders.Length - 1 If IsDi…

【VB.NET】文字列が電話番号かチェックする方法

// '電話番号かチェックします '初期値をセット IsTelNumber = True '10文字以上あるかチェック If Len(str) < 10 Then IsTelNumber = False Exit Sub End If '数字とハイフンのみかチェック For i As Integer = 0 To Len(str) - 1 If Not str.Substring(i, …

【VB.NET】文字列が半角小文字が含まれていないかチェックする

// '半角小文字が入っていないかチェックDim str As String = 'チェックする文字列' Dim NotIsMatchLower As Boolean = True If str Like "*[a-z]*" Then NotIsMatchLower = False End If ・NotIsMatchLower =True なら半角小文字が入っていない、 Falseな…

【VB.NET】文字列が全角かチェックする方法

// '全角のみかチェック Dim str As String = 'チェックする文字列'If Len(str) = 0 Then IsMultiByte = False Exit Sub End If Dim intCountByte As Integer = System.Text.Encoding.GetEncoding(932).GetByteCount(str) Dim intWideCountByte As Integer =…

【VB.NET】文字列がメールアドレスになっているかチェックする

// 'メールアドレスかチェック Dim IsMailAddress As boolean = False If System.Text.RegularExpressions.Regex.IsMatch _ (str, "^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$", _ System.Text.RegularExpressions.RegexOptions.IgnoreCase) Then IsMailAddr…

【VB.NET】文字列が郵便番号かチェックする

// 【VB.NET】文字列が郵便番号かチェックする '郵便番号っぽいかチェックDim blnCheck As String = False If System.Text.RegularExpressions.Regex.IsMatch _ (str, "^\d\d\d-\d\d\d\d$", _ System.Text.RegularExpressions.RegexOptions.ECMAScript) Then…

【比較】C#とVB.NETの特徴 違いとは?

// C#の特徴 生産性が高い Visual Basic とオブジェクト指向言語として設計された C++ との両方のよい点を合わせもつ言語です。 洗練された構文によって効率よく、拡張性・再利用性の高いアプリケーションを構築できます。 C#のほうが優れているという意見も…

【C#】【.NET】関連記事まとめ

// 【VB.NET】複数ファイルをまとめて簡単にZIP圧縮する(SharpZipLib) 【VB.NET】複数のExcelファイルを一つのシートにまとめて保存する 【VB.NET】テキストボックスに数字しか入力できないようにする 【VB.NET】データグリッドビュー(DataGridView)の並…

【VB.NET】文字列が数字のみかチェックする

// 【VB.NET】文字列が数字のみかチェックする Dim str as string = '確認する文字列' If Len(str) = 0 Then IsDigit = False else IsDigit = True For i As Integer = 0 To Len(str) - 1 If Not str.Substring(i, 1) Like "[0-9]" Then IsDigit = False Exi…

【VB.NET】TIF形式の画像ファイルを結合してPDF形式に変換する(Magick.NET)※マルチTIF対応

// 【VB.NET】TIF形式の画像ファイルを結合してPDF形式に変換する(Magick.NET)※マルチTIF対応 ※Magick.NETを使用しています。 Magick.NET-x86.dllを参照先に追加 ※ランタイムバージョン v2.0.50727 '1つ目のTIFファイルDim img1 As New ImageMagick.Magick…

【VB.NET】TIF形式の画像ファイルをPDF形式に変換する(Magick.NET)

// 【VB.NET】TIF形式の画像ファイルをPDF形式に変換する(Magick.NET) ※Magick.NETを使用しています。 Magick.NET-x86.dllを参照先に追加 ※ランタイムバージョン v2.0.50727 'TIFファイルをPDF化 Dim img As New ImageMagick.MagickImageCollection(’変…

【VB.NET】データグリッドビュー(DataGridView)の並び替え

// データグリッドビューの並び替え '並び替えができないようにする For Each c As DataGridViewColumn In 'データグリッドビューの名前'.Columns c.SortMode = DataGridViewColumnSortMode.NotSortable Next c '昇順で並び替えを行う'データグリッドビュー…

【VB.NET】テキストボックスに数字しか入力できないようにする

// テキストボックスに数字しか入力できないようにする。 '0~9と、バックスペース以外の時は、イベントをキャンセルする If (e.KeyChar < "0"c OrElse "9"c < e.KeyChar) AndAlso e.KeyChar <> ControlChars.Back Then e.Handled = True End If ↓そのほかに…

【VB.NET】データベースの更新(行数を取得して更新漏れを防ぐ方法)

// サンプルコード try Using SqlCon As New SqlClient.SqlConnection Dim SqlCom As SqlClient.SqlCommand = SqlCon.CreateCommand Dim SqlTran As SqlClient.SqlTransaction SqlCon.ConnectionString = My.Settings.'接続文字列' SqlCom.CommandTimeout = …

【VB.NET】複数のExcelファイルを一つのシートにまとめて保存する

// サンプルコードの概要 Excelデータをテーブル1に格納(OLEDB接続) Excelデータをテーブル2に格納(OLEDB接続) 1.2で取得したテーブルをマージする マージしたテーブルを二次元配列に格納する 4をExcelファイルに保存する サンプルコード Dim strExcel1…

【VB.NET】複数ファイルをまとめて簡単にZIP圧縮する(SharpZipLib)

// ICSharpCode.SharpZipLib.dll ※上記dllをプロジェクトの参照設定に追加します。 ※WEBでフリーダウンロードできます。 '作成するZIPファイルの設定 Dim strZipName As String = "ZIPファイルの名前" & ".zip" 'ZIPファイルのパス。既に存在している場合は…

【C#】【.NET】関連まとめ 入門編

// 【C#】ドロップダウンリストにデータベースで取得した項目を追加する 【C#】複数のCSV(またはテキスト)ファイルを読み込みデータベースへ登録する 【C#】データベースから取得したデータでグラフを作成する 【C#】グリッドビューにデータベースのデータを…

【VB.NET】テキストファイルを出力する

// 【VB.NET】テキストファイルを出力する Imports System.IO Imports System.Text ---------------------------------------- Using sw As New StreamWriter("ファイルのパス", False, Encoding.GetEncoding("Shift_JIS")) For i As Integer = 0 To 10 sw.W…

【VB.NET】EXEファイルの実行する

// 【VB.NET】EXEファイルの実行する。 'EXEを実行します。Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start("C:\実行EXEファイルのパス.exe", "引数") '終了するまで最大10分待機。p.WaitForExit(600000)'終了したか確認する。If p…

【VB.NET】文字コード、区切り文字を指定してテキストファイルをテーブルに格納する

// 例:パイプ(|)区切り、文字コード「UTF-8」のテキストファイルをテーブルに格納する。 ※文字コードが「Shift-JIS」の場合・・・ Encoding.GetEncoding("Shift-JIS") Imports System.IO Imports System.Text ------------------------------------------…