private void button1ActionPerformed(ActionEvent evt) {
String data1 = area1.getText();
String data2 = text1.getText();
if(data1.length()>0){
area1.setText("");
String[] strAry = data1.split("\r\n");
for(int i = 0; i<strAry.length; i++){
if (strAry[i].indexOf(data2)!=-1)area1.append(strAry[i] + "\r\n");
}
}else{
area1.setText("");
}
}
上記は、button1を押すとtext1に書かれた文字列をテキストファイルの
中から検索し、area1に検索結果を表示させるものです。
text1に文字列が一つだけ書かれている場合は、これで良いのですが
スペースで区切った文字列を全て含む、複数検索(AND検索)の場合は
どうなるのでしょうか?(例:晴れ 天気)
苦し紛れにString[] strAry2 = data2.split(" ");をつくり
forで回そうとしましたが、だめでした・・(or検索ではないですもんね)。
どうか良いお知恵をお貸しください。
No.1ベストアンサー
- 回答日時:
こんにちは。
例の状況としては以下でしょうか?
(1)対象ファイルは1つ
(2)その中で複数キーワードに一致する行を抽出したい
上の状況で合っているとすれば、
1. キーワードを区切り文字(空白など)で分解する
2. 1の1つのキーワードでファイルを検索し、
検索された行番号を保持
(行番号はfor文なんかの繰り返し回数なんかでいいかと。)
3. 2で検索した以外のキーワードで、保持した行番号に
対応する文字列をさらに検索する。
4. 3の行番号を保持する。
3.4を繰り返す。
こんな感じでどうでしょうか。
参考URL:http://www.atmarkit.co.jp/fcoding/articles/algor …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# C#テキストボックスの文字を配列にいれてその後表示する 4 2022/07/17 04:47
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) excel関数部分一致について教えてください。 2 2022/08/05 14:35
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/08 09:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
指数関数近似を行うプログラム...
-
あああ..ああい..ああう とい...
-
VBAにて『元に戻すボタン』を作...
-
Excelで、あるセルの値に応じて...
-
Excel UserForm の表示位置
-
VBAを使って検索したセルをコピ...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
B列の最終行までA列をオート...
-
エクセルVBA 配列からセルに「...
-
Cellsのかっこの中はどっちが行...
-
VBAマクロ実行時エラーの修正に...
-
エクセルの合計を自動で表示さ...
-
マクロのコマンドボタン《Activ...
-
VBA シートをコピーする際に Co...
-
マクロの「SaveAs」でエラーが...
-
エクセルで離れた列を選択して...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA 別ブックからの転記の高速...
-
【ExcelVBA】zip圧縮されたCSV...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あああ..ああい..ああう とい...
-
VBAにて『元に戻すボタン』を作...
-
select caseの入れ子
-
VBAバーコード照合 バーコード...
-
xlookup関数の引数を利用して検...
-
vbs 文字位置を中央に
-
エクセルで選択したセルがディ...
-
スペース区切りのAND検索
-
ASPでバイナリ(ビッグエンディ...
-
半透明ブラシ重ね塗りのアルゴ...
-
エクセルで特定の文字列が入っ...
-
VBAマクロ実行時エラーの修正に...
-
マクロの「SaveAs」でエラーが...
-
VBA シートをコピーする際に Co...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルで離れた列を選択して...
-
Worksheets メソッドは失敗しま...
-
VLOOKUPの列番号の最大は?
-
Excelで、あるセルの値に応じて...
おすすめ情報