Access 2010 - 创建 VBA 宏生成文本文件答案

【问题标题】：Access 2010 - Create VBA Macro generate Text FileAccess 2010 - 创建 VBA 宏生成文本文件
【发布时间】：2013-09-10 22:10:36
【问题描述】：

我有一个包含大约 900 条记录的表。示例记录如下所示：

字段名称：

ID  FNN DSLAM_ID    SHORT_CODE  PORT_TYPE   PANEL   SLOT    CHANNEL CONNECTION_TYPE SERVICE_TYPE    PVCID   CHANNEL_TYPE    PROD_CODES

记录 1：

1   A99TEST9999 QXXXXENNNN  ABCDE   DSL48P  1   11  38  ABC ADSL    RANDOMIDXXYY    N   ADESP=NNNNNNN_ABCDEFG_L2PPP

我想建立一个文本文件，它为每条记录建立一个新行并输入一个特定字段作为变量。

示例行：

FNN="[FNN]" : ACTION="" : SERVICE_TYPE="[CONNECTION_TYPE]" : NE_ID="[DSLAM_ID]", NE_DEFN="[SERVICE_TYPE]", PORT="[PANEL] / [SLOT] / [CHANNEL]"

我以前见过人们编写脚本来创建路由器配置，基本上这就是我想要为应用程序构建大量配置文件的方法。

【问题讨论】：

标签： vba ms-access ms-access-2010

【解决方案1】：

您需要获取记录集对象，然后执行以下操作：

Open "yourfilename.txt" for Output as #1
While not (recordset.eof) 
  Print #1, "FNN=" & recordset.fields("FNN").value (add the rest of your string here...)
  recordset.movenext
Wend
Close #1

从技术上讲，您应该使用 FreeFile() 函数获取文件编号，而不是“#1”。

【讨论】：