Q&A
エラーはimports System.Text.RegularExpressions で消えるとして。For nextとかで連番用の変数に都度＋１して、format()で桁揃えすれば良いかなと思います。
現在、特定のデータをテキストファイルに出力するシステムの開発を行っています。
起動したら自動でデータを読み込んで出力し、該当の箇所に保存する流れです。
System.IO.StreamWriterを用いて、出力自体はできるようになりました。
ただテキストファイルを保存する際に、拡張子の前に連番を設定したいのですがそこがうまくいきません。
ファイル名は、｢ABC＋YYYYMMDD＋３桁の連番＋拡張子｣にしたいです。
連番に関しては、1回の出力ごとに001→002→003……といったようにしたいです。
また、手入力等で同一名のファイルが既にあれば、追記します。
(例えば2020/07/13に出力し、出力が3回目の場合、該当のフォルダに
「ABC20200713003.txt」というファイルがあれば、そのファイル内の下の行に追記で出力します。
こちらは作成済です。)
連番の作成方法について調べたら、以下のようなコードがあったのでペーストしてみました
1 Private Sub SurroundingSub()
2 Dim di = New DirectoryInfo(Environment.CurrentDirectory)
3 Dim tagName = "textfile"
4 Dim max = di.GetFiles(tagName & "???.txt").[Select](Function(fi) Regex.IsMatch(fi.Name, "(?i)(\d{3}).txt$")).Where(Function(m) m.Success).[Select](Function(m) Int32.Parse(m.Groups(1).Value)).DefaultIfEmpty(0).Max()
5 Dim fileName = String.Format("{0}_{1:d3}.txt", tagName, max + 1)
6 Console.WriteLine(fileName)
7 End Sub
ただしこちらの場合、4行目のRegexで宣言されていない旨のエラーが出てしまいました。
連番に関してある程度調べましたが、VB.NETで取り扱っているものが少なく、
条件に合わないか上記のようなエラーになってしまいました。
必要な情報があれば追記いたします。
よろしくお願いいたします。
VisualStudio2019
.Net FrameWorkは、確か4.6.1です
タグを適当につけるのはやめましょう。
「Visual Studio」も「SQL Server」も「バッチファイル」もこの質問内容に直接関係があるとは思えません。
もしこのアプリケーションを起動して3回目の出力であった場合、
「ABC20200713003.txt」というファイルに出力する
ただし、すでに「ABC20200713003.txt」というファイルが合った場合は上書きではなく追記する
ということですよね？
この後、このアプリケーションを終了してもう一度起動した場合は1回目としてカウントするのですか？
それとも4回目としてカウントするのですか？
なんとなくですが、常に追記モードで書き出しすればファイルがなければ新規作成されますし、存在すれば追記されるので難しく考える必要がない気がします。
再度起動した際は4回目として「ABC20200713004.txt」を出力する想定です。
常に連番で別ファイルを作成して保存するようなイメージです。
連番でファイル分けする要件があるので、うまくいかずに質問いたしました。
指定フォルダにあるファイルの最大番号＋１でファイルを作るということですか？
ソースを見た感じ、現在あるファイルの連番部分の最大値を取得しようとしているように見えますが、その場合は手動で作ったファイルでもカウントされて、「手入力等で同一名のファイルが既にあれば、追記します」というのは当てはまらないのではないでしょうか
多少冗長になったとしても、まずは自分で理解できる処理を書いた方が良いかなと思うのですが。それが書けてからLinqを使うなりしたら良いのではないかと。
回答1件
0
ベストアンサー
コードの最初に
Imports System.Text.RegularExpressions
と書くか、RegExの所を
System.Text.RegularExpressions.RegEx
と書く必要があります。
投稿2020/07/13 07:07
総合スコア772
回答ありがとうございます。
追加したところエラーが消えました。
ただm.Successとm.GroupsにBooleanじゃない旨のエラーが出てしまいました。これは、どうすれば良いのでしょうか。
質問ばかりすみませんが、お願いいたします。
コードの方をよく見ていませんでした。ゴメンナサイ。
これはどこに書いてあったコードでしょうか？
もしどこかのサイトに掲載されているのであれば、そのサイトのURLも示してもらえるとありがたいです。
あと、使用しているVisual Studioや.Net Frameworkのバージョンも書いた方がいいです。
（質問内容を編集し、追記してください。）
すみません、サイトに関しては履歴を消してしまって探し出せませんでした。
他追記します。
エラーの原因は、その行に含まれる「Regex.IsMatch」ではないかと思います。
正しくは、「Regex.Match」だと思います。
Dim max = di.GetFiles(tagName & "_???.txt").[Select](Function(fi) Regex.Match(fi.Name, "(?i)_(\d{3}).txt$")).Where(Function(m) m.Success).[Select](Function(m) Int32.Parse(m.Groups(1).Value)).DefaultIfEmpty(0).Max()
ところで、上記式が何を行っているか理解できますか？
もしそれが分からないようだと、何か問題があった時やカスタマイズしようとしたときにドツボにはまる恐れがあります。
Linqというものを勉強することをお勧めします。
あと、正規表現（Regex）を使用するならば、正規表現も勉強した方が良いでしょう。
※今回の回答は、発生したエラーの問いに対するものに留めました。
実際のファイル名生成に関する処理で質問がある場合は、今回の質問の内容を離れるため、新たに質問した方が良いと思います。
あなたの回答
tips
プレビュー
