EDIFACT宏(可读消息结构)

Question

我在EDI领域工作，希望在EDIFACT宏中得到一些帮助，使EDIFACT文件更具可读性。

消息看起来像这样：

data'data'data'data'

我想让宏将结构转换为：

data'
data'
data'
data'

请让我知道怎么做。提前感谢！

BR Jonas

Answer 1

如果您只想以更具可读性的格式查看文件，请尝试下载Softshare EDI Notepad。这是一个非常好的工具，它支持X12、EDIFACT和TRADACOMS标准，而且是免费的。

Answer 2

在VIM中替换(假设正在使用用于in字符集的标准EDIFACT分隔符/转义字符)：

:s/\([^?]'\)\(.\)/\1\r\2/g

分解正则表达式：

\([^?]'\) -搜索出现在除? (标准转义字符)之外的任何字符之后的'，并捕获这两个字符作为第一个原子。这是每个段的最后两个字符。

\(.\) -捕获段终止符后面的任何单个字符(即如果段终止符已经在行尾，则不匹配)

然后将此行上的所有匹配项替换为段终止符和下一段的开头之间的新行。

否则，你可能会得到这样的结果：

...
FTX+AAR+++FORWARDING?: Freight under Vendor?'
s care.'
NAD+BY+9312345123452'
CTA+PD+0001:Terence Trent D?'
Arby'
...

而不是这样：

...
FTX+AAR+++FORWARDING?: Freight under Vendor?'s care .'
NAD+BY+9312345123452'
CTA+PD+0001:Terence Trent D?'Arby'
...

Answer 3

这就是你要找的东西吗？

Option Explicit

Dim stmOutput: Set stmOutput = CreateObject("ADODB.Stream")
stmOutput.Open
stmOutput.Type = 2 'adTypeText
stmOutput.Charset = "us-ascii"

Dim stm: Set stm = CreateObject("ADODB.Stream")
stm.Type = 1 'adTypeBinary
stm.Open
stm.LoadFromFile "EDIFACT.txt"

stm.Position = 0
stm.Type = 2 'adTypeText
stm.Charset = "us-ascii"

Dim c: c = ""
Do Until stm.EOS
  c = stm.ReadText(1)
  Select Case c
    Case Chr(39)
      stmOutput.WriteText c & vbCrLf
    Case Else
      stmOutput.WriteText c
  End Select
Loop


stm.Close
Set stm = Nothing

stmOutput.SaveToFile "EDIFACT.with-CRLF.txt"
stmOutput.Close
Set stmOutput = Nothing

WScript.Echo "Done."