質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
ファイル

ファイルとは、文字列に基づいた名前又はパスからアクセスすることができる、任意の情報のブロック又は情報を格納するためのリソースです。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

1回答

3007閲覧

VB.NET ファイル名に連番を付けて保存したい。

退会済みユーザー

退会済みユーザー

総合スコア0

ファイル

ファイルとは、文字列に基づいた名前又はパスからアクセスすることができる、任意の情報のブロック又は情報を格納するためのリソースです。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

1クリップ

投稿2020/07/13 06:39

編集2020/07/13 10:13

現在、特定のデータをテキストファイルに出力するシステムの開発を行っています。
起動したら自動でデータを読み込んで出力し、該当の箇所に保存する流れです。

System.IO.StreamWriterを用いて、出力自体はできるようになりました。
ただテキストファイルを保存する際に、拡張子の前に連番を設定したいのですがそこがうまくいきません。

ファイル名は、「ABC+YYYYMMDD+3桁の連番+拡張子」にしたいです。
連番に関しては、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です

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

mdj

2020/07/13 07:06

エラーはimports System.Text.RegularExpressions で消えるとして。For nextとかで連番用の変数に都度+1して、format()で桁揃えすれば良いかなと思います。
gentaro

2020/07/13 07:14

タグを適当につけるのはやめましょう。 「Visual Studio」も「SQL Server」も「バッチファイル」もこの質問内容に直接関係があるとは思えません。
YAmaGNZ

2020/07/13 07:37

もしこのアプリケーションを起動して3回目の出力であった場合、 「ABC20200713003.txt」というファイルに出力する ただし、すでに「ABC20200713003.txt」というファイルが合った場合は上書きではなく追記する ということですよね? この後、このアプリケーションを終了してもう一度起動した場合は1回目としてカウントするのですか? それとも4回目としてカウントするのですか? なんとなくですが、常に追記モードで書き出しすればファイルがなければ新規作成されますし、存在すれば追記されるので難しく考える必要がない気がします。
退会済みユーザー

退会済みユーザー

2020/07/13 10:09

再度起動した際は4回目として「ABC20200713004.txt」を出力する想定です。 常に連番で別ファイルを作成して保存するようなイメージです。 連番でファイル分けする要件があるので、うまくいかずに質問いたしました。
YAmaGNZ

2020/07/13 10:24

指定フォルダにあるファイルの最大番号+1でファイルを作るということですか? ソースを見た感じ、現在あるファイルの連番部分の最大値を取得しようとしているように見えますが、その場合は手動で作ったファイルでもカウントされて、「手入力等で同一名のファイルが既にあれば、追記します」というのは当てはまらないのではないでしょうか
mdj

2020/07/14 07:47 編集

多少冗長になったとしても、まずは自分で理解できる処理を書いた方が良いかなと思うのですが。それが書けてからLinqを使うなりしたら良いのではないかと。
guest

回答1

0

ベストアンサー

コードの最初に
Imports System.Text.RegularExpressions
と書くか、RegExの所を
System.Text.RegularExpressions.RegEx
と書く必要があります。

投稿2020/07/13 07:07

kenshirou

総合スコア772

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2020/07/13 07:36

回答ありがとうございます。 追加したところエラーが消えました。 ただm.Successとm.GroupsにBooleanじゃない旨のエラーが出てしまいました。これは、どうすれば良いのでしょうか。 質問ばかりすみませんが、お願いいたします。
kenshirou

2020/07/13 07:45

コードの方をよく見ていませんでした。ゴメンナサイ。 これはどこに書いてあったコードでしょうか? もしどこかのサイトに掲載されているのであれば、そのサイトのURLも示してもらえるとありがたいです。 あと、使用しているVisual Studioや.Net Frameworkのバージョンも書いた方がいいです。 (質問内容を編集し、追記してください。)
退会済みユーザー

退会済みユーザー

2020/07/13 10:11

すみません、サイトに関しては履歴を消してしまって探し出せませんでした。 他追記します。
kenshirou

2020/07/14 07:16 編集

エラーの原因は、その行に含まれる「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)を使用するならば、正規表現も勉強した方が良いでしょう。 ※今回の回答は、発生したエラーの問いに対するものに留めました。 実際のファイル名生成に関する処理で質問がある場合は、今回の質問の内容を離れるため、新たに質問した方が良いと思います。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問