使用Java程式碼讀取資料夾中的所有txt文檔，包括子資料夾中的txt文檔

程式碼！ java如何讀取資料夾中所有txt文件包含子資料夾中的txt文

新建一個類，命名為FileHandler，將下面的程式碼放入其中，注意設定basePath為你要讀取的資料夾路徑。已經提供了讀取和寫入的方法，你可以根據需要呼叫。 ```java import java.io.File; import java.io.FileWriter; import java.io.IOException; import java.nio.file.Files; import java.nio.file.Paths; public class FileHandler { private String basePath; public FileHandler(String basePath) { this.basePath = basePath; } public String readFile(String fileName) throws IOException { String filePath = basePath File.separator fileName; byte[] bytes = Files.readAllBytes(Paths.get(filePath)); return new String(bytes); } public void writeFile(String fileName, String

static String basePath=＂/home/csvDir＂;

/**

* 尋找資料夾下所有符合csv的檔案

*

* @param dir 要找的資料夾物件

**/

public static void findFile(File dir) throws IOException{

File[] dirFiles = dir.listFiles();

#for(File temp : dirFiles){

if(!temp.isFile()){

findFile(temp);

}

//尋找指定的檔案

if(temp.isFile() & temp.getAbsolutePath().endsWith(＂.txt＂) ){

System.out.println(temp.isFile() ＂ ＂ temp.getAbsolutePath());

readFileContent(temp);

}

}

}

/**

* @param file 要讀取的檔案物件

* @return 回傳檔案的內容

**/

public static String readFileContent(File file) throws IOException{

FileReader fr = new FileReader(file);

BufferedReader br = new BufferedReader(fr);

StringBuffer sb = new StringBuffer();

while(br.ready()){

sb.append(br.readLine());

}

System.out.println(sb.toString());

return sb.toString();

}

/**

* @param file 要寫入的檔案物件

* @param content 要寫入的檔案內容

**/

public static void writeFileContent(File file,String content) throws IOException{

FileWriter fw = new FileWriter(file);

fw.write(content);

fw.flush();

fw.close();

}

public static void main(String[] args) {

try {

findFile(new File(basePath));

} catch (IOException e) {

// TODO Auto-generated catch block

e.printStackTrace();

}

}

高分程式碼！用vba如何檢索一個資料夾裡所有txt檔案包含

Sub t()

Dim fso, f, f1, fc, s, r

Const ForReading = 1, ForWriting = 2

Set fso = CreateObject(＂Scripting.FileSystemObject＂)

'Set fc = fso.GetFile(WScript.ScriptFullName).ParentFolder.Files

Set fc = fso.GetFolder(＂c:\windows＂).Files '使用時把c:\windows改成實際的資料夾

L = 1

For Each f1 In fc

EXTName = UCase(fso.GetExtensionName(f1.Name))

If EXTName = ＂TXT＂ Then

Set fs = fso.OpenTextFile(f1, ForReading)

fb = fs.ReadAll

If InStr(1, fb， ＂蘋果＂) > 0 Then

Cells(L, 1) = f1.Name

Cells(L, 2) = f1.Path

L = L 1

End If

End If

Next

End Sub

以上是使用Java程式碼讀取資料夾中的所有txt文檔，包括子資料夾中的txt文檔的詳細內容。更多資訊請關注PHP中文網其他相關文章！