'==================================================
'
' Over CrLf remover
'
' CopyRight Miyama. 2025 May
'
' http://kazutomimiyama.sakura.ne.jp
' KazutomiMiyamaSub@gmail.com
'
'==================================================

Option Explicit On

Imports System
Imports System.IO

Public Class Form1

    Dim FSO As Object = CreateObject("scripting.filesystemobject")

    Dim WTS As StreamWriter
    Dim RTS As StreamReader

    Private Sub gobtn_Click(sender As Object, e As EventArgs) Handles gobtn.Click

        Dim inputSTR As String = ""
        Dim LineSTR As String = ""

        'Dim StakeSTR As String = ""

        inputSTR = InputBox("FileName?")

        If FSO.fileexists(inputSTR) = False Then
            MessageBox.Show("File No Exists.")
        Else
            WTS = New StreamWriter("output.txt")
            RTS = New StreamReader(inputSTR)

            With RTS
                While .EndOfStream = False

                    LineSTR = .ReadLine
                    If Not LineSTR = "" Then
                        WTS.WriteLine(LineSTR)
                    End If
                End While
                .Close()
            End With
            WTS.Close()
            MessageBox.Show("finished.")
        End If


    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        With Me
            .Width = 400
            .Height = 200

            .Text = "OverCRLF-TextRemover0.01"
        End With
        With gobtn
            .Width = 300
            .Height = 150
            .Left = 40
            .Top = 5

            .Text = "Go &G"
        End With


    End Sub

End Class