VＢＳ VＴＯＣ データセット ＶＯＬ＆サイズ出力

 

#########################

入力　0_VTOC_DS一覧.txt

#########################

 
          TEST.AA.J1.S1.TEST1      VOL01
          TEST.AA.J2.S2.TEST2A     VOL02 +
          TEST.AA.J3.S3.TEST3AAA   VOL003
          TEST.AA.J4.S4.TEST4      VOL004+


          TEST.AA.J1.S1.TEST1         1   2   3
          TEST.AA.J2.S2.TEST2A       22 200   0
          TEST.AA.J3.S3.TEST3AAA    333  30  33
          TEST.AA.J4.S4.TEST4      4444  44  44

##########################

バッチ　0_VTOC_DS一覧.bat

##########################

setlocal enabledelayedexpansion

@echo off

cls

echo ---------------------------------------------

echo  VTOC データセット一覧(VOLとサイズ)を出力

echo ---------------------------------------------

echo %1

echo %~0

echo;

SET /P ANSWER="実行します。よろしいですか (y/n)？"

IF /i {%ANSWER%}=={y} (goto :yes)

IF /i {%ANSWER%}=={yes} (goto :yes)

EXIT

:yes

  IF EXIST %1_結果 DEL %1_結果

  cscript /nologo bin\1_VTOC_DS一覧分割.vbs %1

   IF %errorlevel% neq 0 (

      echo 異常終了 %errorlevel%

      exit /b 8

    )

   rem pause

   cscript /nologo bin\2_VTOC_DS一覧併合.vbs %1

   IF %errorlevel% neq 0 (

      echo 異常終了 %errorlevel%

      exit /b 8

    )

    echo 正常終了 %errorlevel%

　pause

    exit /b 0

endlocal

 

########################

結果_VTOC_DS一覧分割SIZ.csv

########################

TEST.AA.J1.S1.TEST1,1,2,3

TEST.AA.J2.S2.TEST2A,22,200,0

TEST.AA.J3.S3.TEST3AAA,333,30,33

TEST.AA.J4.S4.TEST4,4444,44,44

########################

結果_VTOC_DS一覧分割VOL.csv

########################

TEST.AA.J1.S1.TEST1,VOL01
TEST.AA.J2.S2.TEST2A,VOL02,+
TEST.AA.J3.S3.TEST3AAA,VOL003
TEST.AA.J4.S4.TEST4,VOL004,+

########################

0_VTOC_DS一覧.txt_結果.csv

########################

VOL01,,TEST.AA.J1.S1.TEST1,1,2,3
VOL02,+,TEST.AA.J2.S2.TEST2A,22,200,0
VOL003,,TEST.AA.J3.S3.TEST3AAA,333,30,33
VOL004,+,TEST.AA.J4.S4.TEST4,4444,44,44

 

########################

1_VTOC_DS一覧分割.vbs

########################

Option Explicit

Dim fso

Dim iFile1

Dim oFile1

Dim oFile2

'----------------------------------------

Dim Args

Dim sArg1

Dim sLine

Dim sOutLine

Dim OUTFNAME1

Dim OUTFNAME2

Dim LINEKEY

Dim lPosStr

'----------------------------------------

Set Args = WScript.Arguments

If Args.Count < 1 Then

  WScript.Echo "ドラッグ&ドロップしてを実行。"

  WScript.Quit(1)

End If

'WScript.Echo Args.Count

sArg1 =  Wscript.Arguments(0)

'OUTFNAME1 = sArg1 & "_結果VOL" & ".csv"

'OUTFNAME2 = sArg1 & "_結果SIZ" & ".csv"

'----------------------------------------

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

OUTFNAME1 = fso.getParentFolderName(WScript.ScriptFullName) & "\" & "結果_VTOC_DS一覧分割VOL" & ".csv"

OUTFNAME2 = fso.getParentFolderName(WScript.ScriptFullName) & "\" & "結果_VTOC_DS一覧分割SIZ" & ".csv"

Set iFile1 = fso.OpenTextFile(sArg1, 1, False, 0)

Set oFile1 = fso.OpenTextFile(OUTFNAME1, 2, True)

Set oFile2 = fso.OpenTextFile(OUTFNAME2, 2, True)

LINEKEY = "TEST."

'----------------------------------------

Do Until iFile1.AtEndOfStream

  sLine = iFile1.ReadLine

' ---------------------------------------

  lPosStr = InStr(1, sLine, LINEKEY) 

  If lPosStr > 0 Then

    WScript.Echo sLine

    If mid(sLine,40,1) <> " " Then

'     ------------------------------------

'     VOLUME 情報の時

'     ------------------------------------

      sLine = Replace(sLine, "+", " +")

      sOutLine = OmmitSpaceAndCSV(trim(sLine))

      oFile1.WriteLine sOutLine

    Else

'     ------------------------------------

'     サイズ 情報の時

'     ------------------------------------

      sOutLine = OmmitSpaceAndCSV(trim(sLine))

      oFile2.WriteLine sOutLine

    End If

  End If

Loop

'----------------------------------------

iFile1.Close

oFile1.Close

oFile2.Close

WScript.Quit(0)    ' 終了する

'-------------------------------------------------

' 文字列操作：空白を詰めてカンマ区切りに編集する -

'-------------------------------------------------

Function OmmitSpaceAndCSV(p1)

      Dim a

      ' ２文字以上の空白を空白１文字にする

      While InStr(p1, "  ")

         p1 = Replace(p1, "  ", " ")

      Wend

     ' 空白区切りで配列保存

      a=Split(p1," ")

      OmmitSpaceAndCSV = Join(a, ",")

End Function

########################

2_VTOC_DS一覧併合.vbs

########################

Option Explicit

Dim fso

Dim iFile1

Dim iFile2

Dim oFile1

'----------------------------------------

Dim Args

Dim sArg1

Dim line1

Dim line2

Dim sOutLine

Dim INAME1

Dim INAME2

Dim sOName1

Dim i

Dim ilineNum

Dim aline1

Dim aline2

'----------------------------------------

Set Args = WScript.Arguments

If Args.Count < 1 Then

  WScript.Echo "ドラッグ&ドロップしてを実行。"

  WScript.Quit(1)

End If

'WScript.Echo Args.Count

sArg1 =  Wscript.Arguments(0)

sOName1 = sArg1 & "_結果.csv"

'----------------------------------------

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

INAME1 = fso.getParentFolderName(WScript.ScriptFullName) & "\" & "結果_VTOC_DS一覧分割VOL" & ".csv"

INAME2 = fso.getParentFolderName(WScript.ScriptFullName) & "\" & "結果_VTOC_DS一覧分割SIZ" & ".csv"

Set iFile1 = fso.OpenTextFile(INAME1)

Set iFile2 = fso.OpenTextFile(INAME2)

Set oFile1 = fso.OpenTextFile(sOName1, 2, True)

'----------------------------------------

While iFile1.AtEndOfLine = False

    ilineNum = iFile1.Line

    line1 = iFile1.readLine

    line2 = iFile2.readLine

    aline1 = split(line1, ",")

    aline2 = split(line2, ",")

    'WScript.Echo ilineNum & ",[VOL ]," & line1

    'WScript.Echo ilineNum & ",[SIZE]," & line2

    sOutLine = ""

    If aline1(0) = aline2(0) Then

      'ボリューム名

      sOutLine = sOutLine & aline1(1) & ","

      

      'マルチボリューム識別

      If UBound(aline1) >= 2 Then

        sOutLine = sOutLine & aline1(2) & ","

      Else

        sOutLine = sOutLine & "" & ","

      End if

      'データセット名

      sOutLine = sOutLine & aline1(0)

      'サイズ属性の情報

      For i=1 to UBound(aline2)

        sOutLine = sOutLine & "," & aline2(i)

      Next

      WScript.Echo sOutLine

      oFile1.WriteLine sOutLine

    Else

      WScript.Quit(8)

    End If

Wend

'----------------------------------------

iFile1.close

iFile2.close

oFile1.close

WScript.Quit(0)    ' 終了する