字段中元素的高效拆分

Question

我在从数据库导出的文本文件中有一个字段。该字段包含地址，但有时它们很长，数据库允许它们包含多行。导出时，换行符将替换为美元符号，如下所示：

first part of very long address$second part of very long address$third part of very long address

并非每个地址都有多行，并且没有地址包含超过三行。每条线的长度是可变的。

我正在整理数据以导入到用于邮件合并的 MS Access 中。我想拆分 $ 符号上的字段（如果存在），但如果该字段仅包含 1 行，我想将两个额外的输出字段设置为零长度字符串，这样我就不会在地址中出现空行当它被打印出来时。

我有一个 awk 文件，它可以正确处理文本文件中的所有其他数据，但我需要让最后一点工作。我尝试了下面的代码。除了我在 else 处遇到语法错误这一事实之外，我不确定这是执行我想要的操作的好方法。这是通过 Windows 上的 gawk 完成的。

BEGIN { FS = "|" }
$1 != "HEADER" {
    if ($6 ~ /\$/)
        split($6, arr, "$")
        address = arr[1]
        addresstwo = arr[2]
        addressthree = arr[3]
        addressLength = length(address)
        addressTwoLength = length(addresstwo)
        addressThreeLength = length(addressthree)

    else {
        address = $6
        addressLength = length($6)
        addresstwo = ""
        addressTwoLength = length(addresstwo)
    addressthree = ""
        addressThreeLength = length(addressthree)
        }

    printf("%*s\t%*s\t\%*s\n",
          addressLength, address, addressTwoLength, addresstwo, addressThreeLength, addressthree)
}

编辑： 对此感到抱歉。这是一个示例，

HEADER|0000000130|0000527350|0000171250|0000058000|0000756600|0000814753|0000819455|100106
rec1|ILL/COLORADO COLLEGE$TUTT LIBRARY|1021 N CASCADE$COLORADO SPRINGS, CO 80903|
rec2|ILL /PIKES PEAK LIBRARY DISTRICT|20 N. CASCADE AVE. / PO BOX 1579$COLORADO SPRINGS, CO 80903|
rec3|DOE,JOHN|PO Box 8034|
rec4|ILL/GEORGIA INSTITUTE OF TECHNOLOGY|INFORMATION DELIVERY DEPT$704 CHERRY ST$ATLANTA, GA 30332-0900

我仅匹配其中没有标题的行。我需要拆分 $ 符号上的文本字符串。管道之间的字符串不应被填充（这就是为什么我试图在原始代码中获取长度）。对于此示例，有 6 个输出字段，任何没有数据的字段都只是一个空字符串（也是我在代码中尝试执行的操作）。

rec1|ILL/COLORADO COLLEGE|TUTT LIBRARY|1021 N CASCADE|COLORADO SPRINGS, CO 80903||
rec2|ILL /PIKES PEAK LIBRARY DISTRICT||20 N. CASCADE AVE. / PO BOX 1579|COLORADO SPRINGS, CO 80903||
rec3|DOE,JOHN||PO Box 8034|||
rec4|ILL/GEORGIA INSTITUTE OF TECHNOLOGY||INFORMATION DELIVERY DEPT|704 CHERRY ST|ATLANTA, GA 30332-0900|

希望有帮助！如果这仍然不清楚，请告诉我。

Answer 1

BEGIN { FS = "|" }
$1 != "HEADER" {
    for(i = gsub(/\$/, "\t", $6); i < 3; i++)
        $6 = $6 "\t"
    print $6
}

我不太确定我是否满足您的要求。