Anyone who's using Excel can implement this code in VB Macro and then just paste HPX170 Scene files in Column A and it will be converted to HMC151E file.
For HMC150 file just change the headers, I figured it might help some people:
For HMC150 file just change the headers, I figured it might help some people:
Code:
Sub Macro1()
For i = 3 To 9:
Cells.Replace What:="0000500" & i, Replacement:="0000300" & i - 2, LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next i
Cells.Replace What:="0000500A", Replacement:="00003009", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="00005010", Replacement:="0000300f", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=" ; ", Replacement:=" ; ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
For i = 66 To 70:
Cells.Replace What:="0000500" & Chr(i), Replacement:="0000300" & Chr(i + 31), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next i
Cells.Replace What:="AG-HPX170P", Replacement:="AG-HMC151E", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="SYSTEM FREQ:59.94Hz", Replacement:="SYSTEM FREQ:50Hz", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
i = 6
While Cells(i, 1) <> ""
If InStr(1, Cells(i, 1).Value, "OPERATION TYPE") <> 0 Or InStr(1, Cells(i, 1).Value, "FRAME RATE") <> 0 Or InStr(1, Cells(i, 1).Value, "SYNCRO SCAN") <> 0 Or InStr(1, Cells(i, 1).Value, "V DETAIL FREQ") <> 0 Then
Cells(i, 1).EntireRow.Delete
i = i - 1
ElseIf InStr(1, Cells(i, 1).Value, "<") <> 0 Then
Cells(i, 1).EntireRow.Insert
Cells(i, 1).Value = "00003011: 586 ; SYNCRO SCAN"
i = i + 1
ElseIf InStr(1, Cells(i, 1).Value, "SCENE NAME") <> 0 Then
Cells(i, 1).Value = Cells(i, 1).Value & " ; NAME EDIT"
ElseIf InStr(13, Cells(i, 1).Value, ":") <> 0 Then
Cells(i, 1).Value = Left(Cells(i, 1).Value, InStr(13, Cells(i, 1).Value, ":") - 1)
End If
Cells(i, 1).Value = RTrim(Cells(i, 1).Value)
i = i + 1
Wend
Cells(i, 1).EntireRow.Insert
Cells(i, 1).Value = "00003011: 586 ; SYNCRO SCAN"
End Sub