Trung tâm cá nhân
sách gpt4 ai đã đi

VBScript để định dạng lại/sửa lại tệp văn bản phân cách?

In lại 作者：行者123 更新时间：2023-12-04 06:04:34 31 4
mua khóa gpt4 Nike

有人可以帮助我使用 VBScript 重新格式化/正确格式化带分隔符的文本文件吗？

我有一个文本文件 ^分界如下:

AGREE^NAME^ADD1^ADD2^ADD3^ADD4^PCODE^BAL^ARREARS
00010004000051162^MISS JENNIFER GRAY ^123 FAKE STREET ^ ^TOWN ^COUNTY ^POSTCODE ^ 004978.00^ 000188.72

所有数据都包含需要删除的前导和尾随空格。我只有 VBScript 可用于执行此操作。

我曾尝试使用 ADO GetStrings，但由于前导和尾随空格导致结果不一致。

任何人都可以提供任何建议或替代方案吗？

Cảm ơn

1 Câu trả lời

使用 ADO 文本文件时，应从表定义开始
在相应的 schema.ini 文件中:

[agree.txt]
Format=Delimited(^)
ColNameHeader=True
DecimalSymbol=.
CharacterSet=ANSI
TextDelimiter=None
Col1=AGREE CHAR
Col2=NAME CHAR
Col3=ADD1 CHAR
Col4=ADD2 CHAR
Col5=ADD3 CHAR
Col6=ADD4 CHAR
Col7=PCODE CHAR
Col8=BAL FLOAT
Col9=ARREARS FLOAT

然后您可以访问您的数据: 
  Dim sTDir : sTDir = goFS.GetAbsolutePathName( "..\data" )
  Dim sTbl1 : sTbl1 = "agree.txt"
  Dim sFSpec : sFSpec = goFS.BuildPath(sTDir, sTbl1)
  Dim sTbl2 : sTbl2 = "agree2.txt"
  WScript.Echo "src file with spaces:"
  WScript.Echo goFS.OpenTextFile(sFSpec).ReadAll()
  Dim oTDb : Set oTDb = CreateObject( "ADODB.Connection" )
  Dim sCS : sCS = Join( Array( _
     "Provider=Microsoft.Jet.OLEDB.4.0" _
   , "Data Source=" & sTDir _
   , "Extended Properties=" & Join( Array( _
        "text" _
      ), ";" ) _
  ), ";" )
  oTDB.Open sCS
  WScript.Echo "trimmed automagically:"
  WScript.Echo oTDb.Execute(Replace("SELECT * FROM [@T]", "@T", sTbl1)) _
    .GetString( adClipString, , "|", vbCrLf, "" )

Đầu ra: 
src file with spaces:
AGREE^NAME^ADD1^ADD2^ADD3^ADD4^PCODE^BAL^ARREARS
00010004000051162^MISS JENNIFER GRAY ^123 FAKE STREET ^ ^TOWN ^COUNTY ^POSTCODE ^ 004978.00^ 000188.72

trimmed automagically:
00010004000051162|MISS JENNIFER GRAY|123 FAKE STREET||TOWN|COUNTY|POSTCODE|4978|188,72

如您所见，如果使用伪空间，则没有任何问题
正确的工具。

要获得干净的副本，只需添加 
  sFSpec = goFS.BuildPath(sTDir, sTbl2)
  If goFS.FileExists(sFSpec) Then goFS.DeleteFile sFSpec
  Dim sSQL : sSQL = Replace(Replace( _
      "SELECT * INTO [@T2] FROM [@T1]" _
    , "@T1", sTbl1), "@T2", sTbl2)
  WScript.Echo "Copy statement"
  WScript.Echo sSQL
  oTDb.Execute sSQL
  WScript.Echo "QED: no spurious whilespace"
  WScript.Echo goFS.OpenTextFile(sFSpec).ReadAll()

Đầu ra: 
Copy statement
SELECT * INTO [agree2.txt] FROM [agree.txt]
QED: no spurious whilespace
"AGREE";"NAME";"ADD1";"ADD2";"ADD3";"ADD4";"PCODE";"BAL";"ARREARS"
"00010004000051162";"MISS JENNIFER GRAY";"123 FAKE STREET";;"TOWN";"COUNTY";"POSTCODE";4978,00;188,72

司机会加 
[agree2.txt]
ColNameHeader=True
CharacterSet=1252
Format=Delimited(;)
Col1=AGREE Char Width 255
Col2=NAME Char Width 255
Col3=ADD1 Char Width 255
Col4=ADD2 Char Width 255
Col5=ADD3 Char Width 255
Col6=ADD4 Char Width 255
Col7=PCODE Char Width 255
Col8=BAL Float
Col9=ARREARS Float

(德国语言环境默认)到schema.ini；将此编辑为 
[agree2.txt]
Format=Delimited(^)
ColNameHeader=True
DecimalSymbol=.
CharacterSet=ANSI
TextDelimiter=None
Col1=AGREE CHAR
...

重新创建您的原始格式: 
QED: no spurious whilespace
AGREE^NAME^ADD1^ADD2^ADD3^ADD4^PCODE^BAL^ARREARS
00010004000051162^MISS JENNIFER GRAY^123 FAKE STREET^^TOWN^COUNTY^POSTCODE^4978.00^188.72

通过使用更复杂的 SQL 语句和/或增强表定义，您可以直接解决更复杂的任务。

附言

看 đây ， 如果 
  Dim sSQL : sSQL = Replace(Replace( _
      "SELECT * INTO [@T2] FROM [@T1]" _
    , "@T1", sTbl1), "@T2", sTbl2)

让你想知道(@T1 和 @T2 是 KHÔNG ADO 命令参数；嵌套的 Replace() 调用适用于 之前 ADO 看到然后修改的语句)。

关于text - VBScript 正确/重新格式化带分隔符的文本文件？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/8513185/

31 4 0
Bài viết được đề xuất: Silverlight - 基于用户角色控制可见性
Bài viết được đề xuất: knockout.js - knockoutJS 中的匿名模板
Bài viết được đề xuất: php - 使用 : 读取 XML 节点
Bài viết được đề xuất: google-chrome-extension - Chrome 插件运行功能但未找到
行者123
Hồ sơ cá nhân

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá Didi Taxi miễn phí
Mã giảm giá Didi Taxi
Các bài viết nóng hổi trên toàn bộ trang web
Giấy chứng nhận ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com