'==================================================================
'
' Line Header Operator v0.01
' add any strings to line top.
'
' Copy Right Miyama. 2025 May
'
' http://kazutomimiyama.sakura.ne.jp
' kazutomiMiyamaSub@gmail.com
'
'==================================================================

Option Explicit On

Imports System
Imports System.ComponentModel
Imports System.IO

Public Class Form1

    Dim FSO As Object = CreateObject("Scripting.FileSystemObject")

    Dim WTS As StreamWriter
    Dim RTS As StreamReader

    Dim VacantCHR As String = ""
    Dim ApoCHR As String = "'"

    Private Sub ExitBTN_Click(sender As Object, e As EventArgs) Handles ExitBTN.Click
        Me.Close()
    End Sub

    Private Sub Form1_load(sender As Object, e As EventArgs) Handles Me.Load
        With Me
            .Width = 300
            .Height = 212

            .Text = "LineHeaderOperator"
        End With
        With GoBTN
            .Width = 140
            .Height = 100
            .Left = 142
            .Top = 50

            .Text = "Go &G"
            .TabIndex = 1
        End With
        With RmvNBTN
            .Width = 140
            .Height = 100
            .Left = 2
            .Top = 50
            .Text = "RmvNum &R"
            .TabIndex = 2

        End With
        With ExitBTN
            .Width = 280
            .Height = 50
            .Left = 2
            .Top = 0

            .Text = "Exit &X"
            .TabIndex = 3
        End With
        With PlusLineCounterCHK
            .Width = 140
            .Height = 50
            .Left = 158
            .Top = 152

            .Text = "Add LineNumber &L"
            .TabIndex = 0

            .Enabled = True
            .Checked = False '
        End With
    End Sub

    Private Sub GoBTN_Click(sender As Object, e As EventArgs) Handles GoBTN.Click
        Call SubProcess1()
    End Sub

    Private Sub SubProcess1()

        Dim FileNameSTR As String = VacantCHR
        Dim ADDSTRtoLineTOP As String = VacantCHR
        Dim LineCounter As Integer = 0
        Dim LineNumSTR As String

        While FSO.fileexists(FileNameSTR) = False 'FaReadLineSTRe
            FileNameSTR = InputBox("FileName?")
        End While

        ADDSTRtoLineTOP = InputBox("Add-STR?")

        WTS = New StreamWriter("output.txt")
        RTS = New StreamReader(FileNameSTR)

        With RTS
            While .EndOfStream = False
                LineCounter = LineCounter + 1
                LineNumSTR = VacantCHR
                If PlusLineCounterCHK.Checked = True Then
                    LineNumSTR = MakeLineNumSTR(LineCounter, 5)
                    LineNumSTR = ApoCHR + LineNumSTR + ApoCHR
                End If
                WTS.WriteLine(
                    LineNumSTR +
                    ADDSTRtoLineTOP +
                    .ReadLine)
            End While
        End With

        RTS.Close()
        WTS.Close()

        MessageBox.Show("finished.")


    End Sub

    Private Function MakeLineNumSTR(LineCounter As Integer, KetaINT As Integer) As String

        Dim LineCounterKetaINT As Integer
        Dim i As Integer
        Dim OutSTR As String

        OutSTR = CStr(LineCounter)
        LineCounterKetaINT = Len(Trim(CStr(LineCounter)))

        If LineCounterKetaINT < KetaINT Then
            For i = 1 To KetaINT - LineCounterKetaINT
                OutSTR = "0" + OutSTR
            Next i
        End If

        MakeLineNumSTR = OutSTR


    End Function

    Private Sub RmvNBTN_Click(sender As Object, e As EventArgs) Handles RmvNBTN.Click
        Call SubProcess2()
    End Sub

    Private Sub SubProcess2()

        Dim FileNameSTR As String = VacantCHR
        Dim KetaINT As Integer = 0

        Dim ReadLineSTR As String = VacantCHR
        Dim LenReadLineSTR = VacantCHR

        Dim CHKCHR As String = VacantCHR
        Dim CHKINT As Integer = VacantCHR

        Dim i As Integer
        Dim outSTR As String = VacantCHR

        '------
        While FSO.fileexists(FileNameSTR) = False
            FileNameSTR = InputBox("FileName?")
        End While

        While KetaINT <= 0 Or 5 < KetaINT
            KetaINT = Val(InputBox("NumKetaINT?"))
        End While

        WTS = New StreamWriter("output.txt")
        RTS = New StreamReader(FileNameSTR)

        With RTS

            While .EndOfStream = False
                ReadLineSTR = .ReadLine
                LenReadLineSTR = Len(ReadLineSTR)

                If KetaINT + 2 < LenReadLineSTR Then ' 2is two apos

                    CHKINT = 1
                    For i = 1 To KetaINT + 2
                        CHKCHR = Mid(ReadLineSTR, i, 1)
                        CHKINT = CHKINT * CHKNUMw2apo(CHKCHR, i, KetaINT)
                    Next i
                    If CHKINT = 1 Then
                        outSTR = Mid(ReadLineSTR, KetaINT + 2 + 1, LenReadLineSTR - (KetaINT + 2))
                    Else
                        outSTR = ReadLineSTR
                    End If
                Else
                    outSTR = ReadLineSTR
                End If
                WTS.WriteLine(outSTR)

            End While
        End With

        RTS.Close()
        WTS.Close()

        MessageBox.Show("finished.")


    End Sub

    Private Function CHKNUMw2apo(CHKCHR As String, Kanaw2apo As Integer, KetaINTGen As Integer) As Integer

        Dim ResultINT As Integer
        Dim i As Integer
        Dim CHKINT As Integer

        ResultINT = 0
        If Kanaw2apo = 1 Or Kanaw2apo = KetaINTGen + 2 Then
            If CHKCHR = ApoCHR Then
                ResultINT = 1
            End If
        Else
            CHKINT = 0
            For i = 0 To 10 - 1
                If Chr(Asc("0") + i) = CHKCHR Then
                    CHKINT = CHKINT + 1
                End If
            Next i
            If CHKINT = 1 Then
                ResultINT = 1
            End If
        End If

        CHKNUMw2apo = ResultINT


    End Function


End Class
'==================================================================
'
' End of File 
'
'==================================================================