'-------------------------
' HTML maker ver 0.991 part B
' CopyRight Miyama. 2023 April
'
' kazutomi.html.xdomain.jp
'
' KazutomiMiyamaSub@gmail.com (main)
' KazutomiMiyama@outlook.jp
'
' builded by VB.net 2019 x86
'-------------------------
Option Explicit On
Imports System
Imports System.IO
Class MainWindow
Dim VacantCHR As String = ""
Dim DoubleQ As String = Chr(34)
Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
With In_TXT
.Height = 400
.Width = 400
.AcceptsReturn = True
.Text = VacantCHR
End With
With OutTXT
.Height = 400
.Width = 400
.AcceptsReturn = True
.Text = VacantCHR
End With
With ClrBTN
.Height = 60
.Width = 400
.Content = "ALL Clear"
End With
With ExeBTN
.Height = 60
.Width = 400
.Content = "Execute"
End With
End Sub
Private Sub ClrBTN_Click(sender As Object, e As RoutedEventArgs) Handles ClrBTN.Click
In_TXT.Text = VacantCHR
OutTXT.Text = VacantCHR
End Sub
Private Sub ExeBTN_Click(sender As Object, e As RoutedEventArgs) Handles ExeBTN.Click
Dim SourceSTR As String
Dim SourceARR() As String
Dim i As Integer
Dim tmpSTR As String
Dim OutSTR As String
Dim FileHD As String = "" +
"Please Click File with Self-Responcibility." + vbCrLf +
"実行ファイルのアクセスは自己責任でお願い致します。"
Dim hrefHD As String = ""
Dim lineFT As String = ""
Dim FileFT As String = ""
OutSTR = VacantCHR
SourceSTR = In_TXT.Text
If SourceSTR = VacantCHR Then
REM do nothing------
Else
SourceSTR = Replace(SourceSTR, vbLf, VacantCHR)
SourceARR = Split(SourceSTR, vbCr)
With SourceARR
If .Length < 1 Then
' do nothing------
Else
OutSTR = FileHD + vbCrLf + vbCrLf
For i = 0 To .Length - 1
tmpSTR = SourceARR(i)
If tmpSTR = VacantCHR Then
' do nothing------------
Else
If tmpSTR = "HTMLMkA.bat" Then
' do nothing------------
Else
tmpSTR =
hrefHD +
tmpSTR +
hrefFT +
tmpSTR +
lineFT +
vbCrLf + vbCrLf
' 2 crlf for suitable view
OutSTR = OutSTR + tmpSTR
End If
End If
Next
OutTXT.Text = OutSTR + FileFT
End If
End With
End If
End Sub
End Class
'-------------------------
'
' Logic End
'
'-------------------------