C# と VB.NET の質問掲示板

# あえて、解決チェックを外した状態で投稿。


■No5362 (C#初心者 さん) に返信
> どういうことでしょうか？シングルでは囲んでいますけど。

そういうことではありません。テキストボックスに特殊文字が入力されていた場合の話です。
具体的な例を挙げてみれば、たとえば
　filter = "(t_transmit LIKE '%送信%' )";      // 「送信」を検索
のような内容であれば良いのですが、
　filter = "(t_transmit LIKE '%送*信%' )";     // 「送*信」を検索 → エラー
　filter = "(t_transmit LIKE '%送]信%' )";     // 「送]信」を検索 → エラー
といった文字列だと、DataView の処理がエラーになってしまう、ということです。

ですから、TextBox からそうした特殊な文字列が入ってきた場合に備え、
それぞれの特殊文字に対して適切なエスケープ処理を施したさなければなりません。

たとえば上記の例でいえば、処理後のフィルタの内容は、
　filter = "(t_transmit LIKE '%送[*]信%' )";     // 「送*信」を検索
　filter = "(t_transmit LIKE '%送[]]信%' )";     // 「送]信」を検索
などといった結果になるでしょう。

これらの特殊文字については、ヘルプで DataColumn クラスの Expression プロパティを調べると載っています。


> はい・・・申し訳ありません。
> ASP.NETのC#です。
分類の修正をお願いします。＞投稿者 or 管理人s

開発環境：VS2005
言語　　：VB.NET

指定したフォルダ内の変更や作成されたファイルを取得し、複製する処理を作成しています。
動作はするようになったのですが、起動時の動作が不可解なので質問させてください。

起動時にファイルリストを取得しているはずなのに
・起動時にファイルリストを取得
・対象フォルダのファイルを変更
・ボタンを押して新たにファイルリストを取得

以上の処理が終わった後、
変更前と変更後のファイルリストを比較しても内容が同じままです。
どうやら起動時にファイルリストがきちんと取れていないようなのですが、
コメント化してある値のチェックを行うことで意図した値が取得できます。

どうにも原因がつかめないので、どなたかアドバイスをお願いします。

' 以下ソース
Imports System.IO
Public Class Form1
    ' ファイルリスト格納用
    Private FileList As New List(Of FileInfo)
    Private Const strTargetFolder = "D:\Data\FolderWatch\1\"

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' 既存のファイルリストを取得
        FileList.AddRange(New DirectoryInfo(strTargetFolder).GetFiles)
        ' ------------------------------------------
        ' ここを有効にすることで正しく動作する
        ' 既存のファイルリストを出力
        'For Each f As FileInfo In FileList
        '    Debug.WriteLine(f.Name & ":" & f.Length)
        'Next
        ' ------------------------------------------
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' 最新のファイルリストを取得
        Dim NewFileList As New List(Of FileInfo)
        NewFileList.AddRange(New DirectoryInfo(strTargetFolder).GetFiles)
        ' 前回のファイルリストを出力
        For Each f As FileInfo In FileList
            Debug.WriteLine(f.Name & ":" & f.Length)
        Next
        ' 最新のファイルリストを出力
        For Each f As FileInfo In NewFileList
            Debug.WriteLine(f.Name & ":" & f.Length)
        Next
        ' データ更新
        FileList = NewFileList
    End Sub
End Class