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

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

【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 IsDigit(Path.GetFileName(Folders(I))) = True Then      If CInt(dt.ToString("yyyyMMdd")) > CInt(Path.GetFileName(Folders(I))) Then
       Try          Directory.Delete(Folders(I), True)        Catch ex As Exception          'エラー処理
       End Try      End If    End If Next

 

VB.NET

 

【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, 1) Like "[0-9-]" Then IsTelNumber = False Exit For End If Next
'ハイフンを除いて10文字か11文字になっているかチェック If Replace(str, "-", "").ToString.Length < 10 Or Replace(str, "-", "").ToString.Length > 11 Then IsTelNumber = False Exit Sub End If
'ハイフンでSplitした場合の長さが「1」か「3」になっているかチェック If Split(str, "-").Length = 3 Then
'3つに区切れたら、形式が電話番号っぽいか調べる If Not System.Text.RegularExpressions.Regex.IsMatch(str, "^0\d{1,4}-\d{1,4}-\d{4}$") Then IsTelNumber = False Exit Sub End If
'市外局番の桁数をチェック If Split(str, "-")(0).Length < 2 Or Split(str, "-")(0).Length > 5 Then IsTelNumber = False Exit Sub End If
'市内局番が0から始まっていないかチェック If Split(str, "-")(1).Substring(0, 1) = 0 Then IsTelNumber = False Exit Sub End If
ElseIf Split(str, "-").Length <> 1 Then
'3つ以外に区切れたらFalse IsTelNumber = False Exit Sub

End If

IsTelNumber True なら電話番号、Falseなら電話番号でない。

 

VB.NET

 

【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

 

【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 = System.Text.Encoding.GetEncoding(932).GetByteCount(StrConv(str, VbStrConv.Wide))
If intCountByte = intWideCountByte Then IsMultiByte = True Else IsMultiByte = False End If

IsMultiByte True なら全角、Falseなら全角でない。

 

VB.NET 

 

【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
    IsMailAddress = True
End If

IsMailAddress True ならメールアドレス、Falseならメールアドレスでない。

 

【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 blnCheck = True End If

blnCheck =Trueなら郵便番号、Falseなら郵便番号でない。

 

VB.NET 〒

 

【まとめ】プログラミング言語の種類と特徴について(一覧)

 

プログラミング言語の種類と特徴について

 

 

 

特徴 パラダイム 登場時期
Java 携帯機器(スマートフォン等)のシステムから、企業の情報システムを担う大規模なデータベース、サーバ、スーパーコンピュータまで、多くの分野で使用されている。 オブジェクト指向・構造化・手続き型 1995年
PHP 平易な文法のため初心者でも習得しやすく、また大規模な開発にも多く用いられている。 命令型, オブジェクト指向 1995年
C 開発時期が古く、文法に機械語の影響が強く、複雑である。多目的性と、対応機器の範囲が広い。 手続き型 1972年
C++ C言語オブジェクト指向プログラミングをサポートするための改良を加えたもの。 マルチパラダイム 1983年
C# 他の.NET系の言語でも記述可能だが、生産性・機能においてC#が最も優れるとされる。Visual Basic .NETやVisual C++と連携可能 マルチパラダイム 2000年
Visual Basic 2008年4月8日に延長サポートの期間を終え、現在は開発環境のサポートを打ち切られている。 マルチパラダイム 1991年
Visual Basic .NET Visual Basicの後継。C#と遜色のないソリューション・プロジェクト管理機能が実装されている。 マルチパラダイム 2001年
Perl ウェブ・アプリケーション、システム管理、テキスト処理などのプログラムを書くのに広く用いられている。 マルチパラダイム 1987年
COBOL 特に金額計算など事務処理用に広く使われている。 構造化・命令型・オブジェクト指向 1959年
Ruby 日本人が開発、人気急上昇 構造化、命令型、オブジェクト指向 1995年
Objective-C 主にアップルのmacOSiOS上で動作するアプリケーションの開発で利用される。 オブジェクト指向プログラミング 1983年
Python Webアプリケーションやデスクトップアプリケーションなどの開発、各種の自動処理、理工学や統計・解析、産業分野などで広く利用されている マルチパラダイム 1991年
JavaScript Javaとは全く異なるプログラミング言語。動的なウェブサイト構築や、リッチインターネットアプリケーションなど高度なユーザインタフェースの開発に用いられる。 マルチパラダイム 1995年