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

时间:2013-09-10 07:27:02

标签: vba ms-access ms-access-2010

我有一张包含约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]"

我以前见过人们编写脚本来创建路由器配置,基本上这就是我想为应用程序构建一个批量配置文件的目的。

1 个答案:

答案 0 :(得分:0)

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

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”。