にそれらを書く:私は取得したい私はそのようなtxtファイル持ってtxtファイルの段落から特定の行を取得し、1行
GLP 07-Sep-2017 09:13 8.186 pH -59.5 mV 25.5 ºC ATC Manual EP PRO_ISM 6270340 Last cal.: 14-Aug-2017 14:51 S210 B625637220 EMF GLP 07-Sep-2017 08:43 8.180 pH -59.2 mV 25.5 ºC ATC Manual EP PRO_ISM 6270340 Last cal.: 14-Aug-2017 14:51 S210 B625637220 EMF GLP 07-Sep-2017 08:13 8.180 pH -59.2 mV 25.6 ºC ATC Manual EP PRO_ISM 6270340 Last cal.: 14-Aug-2017 14:51 S210 B625637220 EMF ...
を:
07-Sep-2017,08:43, ,8.180 pH,-59.2 mV,25.5 ºC ATC 07-Sep-2017,08:13, ,8.180 pH,-59.2 mV,25.6 ºC ATC 07-Sep-2017,07:43, ,8.180 pH,-59.2 mV,25.6 ºC ATC
私はすでにVBScriptを書きました以下が、私のように、同じライン上のすべてを取得する:
,07-Sep-2017,08:43, ,8.180 pH,-59.2 mV,25.5 ºC ATC,07-Sep-2017,08:13, ,8.180 pH,-59.2 mV,25.6 ºC ATC,07-Sep-2017,07:43, ,8.180 pH,-59.2 mV,25.6 ºC ATC
私はFiの後に私のvbCrLf
を配置する方法を見つけることができませんでした最初のブロック。
アイデアはありますか?
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Users\Jean\Desktop\pH\M092735.TXT", 1)
Set objTextFile2 = objFSO.CreateTextFile("C:\Users\Jean\Desktop\pH\ph.txt", 8)
Do While objTextFile.AtEndOfStream = False
Line = objTextFile.ReadLine
If Line = "GLP" Then
For i = 1 To 6
strLine = strLine & "," & objTextFile.ReadLine
Next
strLine2 = strLine & vbCrLf
End If
Loop
objTextFile2.write strLine2
objTextFile.Close
objTextFile2.Close
ただ、データを再確認しました - それは、スペースではなく、CRLFを末尾ました。回答が修正されました。 – cup
後続スペースが実際の入力データにあるかどうかは不明です。営業担当者は、ラインを正しく破るために質問に追加しているかもしれません。 –