0

Ab Initio Reformat の一環として、入力フィールドを出力にマップし、データ型に従って変換する必要があります。それを自動化するためにvbaスクリプトを書きました。PFB

Sub reformat()

Dim sel As String
Dim j As String

sel = ""
Sheet1.Activate
k = Cells(Rows.Count, "A").End(xlUp).Row
MsgBox (k - 1)
For i = 2 To k

If Cells(i, 2).Value = "1" Then
Cells(i, 5).Value = "out." + Cells(i, 1).Value + "::" + "in." + Cells(i, 4).Value
End If
If Cells(i, 2).Value = "Lkp" Then
Cells(i, 5).Value = "out." + Cells(i, 1).Value + "::" + "first_imp(" + Cells(i, 3) + ")." + "in." + Cells(i, 4).Value
End If
If Cells(i, 2).Value = "DT" Then
Cells(i, 5).Value = "out." + Cells(i, 1).Value + "::" + Cells(i, 3) + "in." + Cells(i, 4)
End If
Next i

出力は次のようになります。

Input   Datatype    Target  
abc string  abc out.abc::in.abc
gbf decimal gbf out.gbf::(decimal(""))in.gbf

このコードを Unix で記述して、Windows でこれを実行し、結果を Unix にコピーするという依存関係を削除できるようにしたいと考えています。次のように Unix にファイルを配置できます。

Input|Datatype|Target

abc|string|abc

gbf|decimal|gbf

そして、私は出力ファイルを次のように取得しようとしています:

out.abc::in.abc

out.gbf::(deicmal(""))in.gbf

シェルスクリプトをあまり意識しないでください

4

1 に答える 1