程序怎么导入txt文本

2025-03-01 11:08:02

在不同的编程语言中，导入TXT文本文件的方法有所不同。以下是一些常见编程语言中导入TXT文本文件的方法：

C语言

使用`fopen（）`函数打开文件，然后使用`fgets（）`或`fgetc（）`函数逐行或逐字符读取文件内容。示例代码如下：

```c

include

define MAXLINE 100000

define BUFLEN 1024

int main() {

FILE *file;

char buf[BUFLEN];

int len = 0, i = 0;

char *array[MAXLINE];

file = fopen("test.txt", "r"); // 打开TXT文件

if (!file) return -1;

while (fgets(buf, BUFLEN, file)) { // 读取TXT中字符

len = strlen(buf);

array[i] = (char*)malloc(len + 1);

if (!array[i]) break;

strcpy(array[i++], buf);

}

fclose(file);

i--;

while (i >= 0 && array[i]) {

printf("%s", array[i]);

i--;

}

return 0;

}

```

Python

使用内置的`open（）`函数以只读模式打开文件，然后使用`read（）`或`readlines（）`方法读取文件内容。示例代码如下：

```python

打开文件

with open('file.txt', 'r') as file:

读取文件内容

content = file.read()

输出文件内容

print(content)

```

或者使用`pandas`库的`read_csv（）`函数加载文件到DataFrame中，允许指定分隔符。示例代码如下：

```python

import pandas as pd

读取TXT文件

data = pd.read_csv('file.txt', delimiter='\t') 假设分隔符是制表符

print(data)

```

Excel VBA

使用`InputBox`函数提示用户输入文件夹路径，然后使用`For Each`循环遍历文件夹中的所有TXT文件，并使用`QueryTables.Add`方法将每个文件的内容导入到Excel工作表中。示例代码如下：

```vba

Sub ImportTXTFiles()

Dim folderPath As String

Dim fileName As String

Dim ws As Worksheet

Dim txtLine As String

Dim rowNumber As Long

Dim fileNum As Integer

' 提示用户输入文件夹路径

folderPath = InputBox("请输入TXT文件所在的文件夹路径:", "选择文件夹")

' 遍历文件夹中的所有TXT文件

For Each fileName In Dir(folderPath & "\*.txt")

' 添加新的工作表

Set ws = Sheets.Add(After:=Sheets(Sheets.Count))

ws.Name = fileName

' 导入TXT文件内容到工作表

With ws.QueryTables.Add(Connection:="TEXT;" & folderPath & "\" & fileName, Destination:=ws.Range("A1"))

.TextFileParseType = xlDelimited

.TextFileCommaDelimiter = True

.Refresh

End With

Next fileName

End Sub

```

根据你的具体需求和使用的编程语言，可以选择合适的方法来导入TXT文本文件。