Open kimpro82 opened 1 year ago
By ChatGPT :
아래는 ini 파일을 읽어서 2차원 배열 형태로 엑셀 시트에 저장하는 VBA 코드입니다. 이 코드를 사용하기 전에 ini 파일의 경로와 시트의 이름을 수정해야 합니다.
Sub ReadIniFileToSheet()
' ini 파일 경로와 시트 이름 수정 필요
Const iniFilePath As String = "C:\Test\Playtime.ini"
Const sheetName As String = "Sheet1"
' ini 파일 읽기
Dim fileNum As Integer
fileNum = FreeFile()
Open iniFilePath For Input As #fileNum
' 시트 초기화
Worksheets(sheetName).UsedRange.ClearContents
' 2차원 배열에 ini 파일 데이터 저장
Dim dataArray() As String
Dim row As Integer
row = 1
Do Until EOF(fileNum)
Dim line As String
Line Input #fileNum, line
If line Like "*[*]*" Then
ReDim Preserve dataArray(1 To row + 1, 1 To 4)
dataArray(row, 1) = Mid(line, 2, Len(line) - 2)
ElseIf line Like "date=*" Then
dataArray(row, 2) = Mid(line, 6)
ElseIf line Like "start_time=*" Then
dataArray(row, 3) = Mid(line, 12)
ElseIf line Like "end_time=*" Then
dataArray(row, 4) = Mid(line, 10)
row = row + 1
End If
Loop
Close #fileNum
' 배열 데이터 시트에 출력
Dim lastRow As Integer
lastRow = UBound(dataArray, 1)
With Worksheets(sheetName).Range("A1:D" & lastRow)
.Value = dataArray
.Columns("B:D").NumberFormat = "hh:mm:ss.00"
End With
End Sub
이 코드는 [TestExecutionFile.bat]
으로 시작하는 섹션만을 처리합니다. 다른 섹션도 함께 처리하려면 조건문을 추가하거나 루프 내에서 분기처리하는 등의 수정이 필요할 수 있습니다.
By ChatGPT :
배치파일에서 로그 데이터를 CSV 파일로 저장할 수 있습니다. CSV 파일 형식은 쉼표(,)로 구분된 값 파일이며, 일반적으로 텍스트 파일 형식으로 사용됩니다. 배치파일에서 CSV 파일을 생성하려면, 데이터를 쉼표로 구분하고 각 줄의 끝에 개행 문자를 추가하여 파일을 작성하면 됩니다. 이를 위해 배치파일에서 echo
명령어를 사용하고 >>
연산자를 사용하여 파일에 데이터를 추가할 수 있습니다. 예를 들면 다음과 같습니다.
@echo off
set log_file=log.csv
echo "Date","Time","Message" > %log_file%
echo %date%,%time%,"Start processing..." >> %log_file%
:: 데이터 처리 로직 실행
echo %date%,%time%,"Processing complete." >> %log_file%
echo "Done."
이렇게 작성하면, 로그 파일을 CSV 형식으로 생성할 수 있습니다.
Advanced from #79
Future improvements
(can adopt any other languages or even change the data format from
.ini
)