用erlang将文件中的record提取出来

感谢您的提问。针对您的问题，我可以给出如下的代码实现：

- 首先需要确定 file:consult 函数所读取的文件是一个 Erlang 源代码文件。Erlang 源代码文件可以包含模块定义、函数定义、宏定义、数据类型定义等等。而记录定义（record definition）是 Erlang 中一种重要的数据类型定义方式之一。
- 其次需要通过 file:consult 函数将 Erlang 源代码文件中的内容读取出来，并且将每个记录定义提取出来。
- 最后可以使用函数 io:format 将每个记录定义输出到控制台上，也可以保存到文件中。

下面是示例代码：

-module(main).
-export([extract_records/1]).

-define(RECORD_PATTERN, '#%s{}').

extract_records(Filename) ->
    {ok, Content} = file:consult(Filename),
    Records = [X || X <- Content, is_record_definition(X)],
    io:format("~w~n", [Records]).

is_record_definition({attribute, _, record_info, Record}) ->
    true;
is_record_definition(_Any) ->
    false.

其中，定义了宏 RECORD_PATTERN，用于格式化记录定义的输出。函数 extract_records 接收一个文件名作为参数，把文件内容读入内存中，并通过 is_record_definition 函数筛选出所有的记录定义，最后将这些记录定义格式化输出到控制台上。这个实现只考虑了一种形式的记录定义，即不带字段的记录定义。如果需要提取带字段的记录定义，可以额外编写一些代码来处理。