改行コードの削除 何回目？？？

イラストレーターの文字列の改行コードは
強制改行時に付与されるらしい。

調べてみると
Asc(改行コード) = 3 '[3]-ETX（テキスト終了）
と判明。

という訳で

'改行コードを半角スペースに置換
temContents = Regex.Replace(temContents, Chr(3), " ")

改行コードの削除 何回目？

 　'改行コードが先頭にある場合
	If Regex.IsMatch(Name, "^\w") Then
		'Console.WriteLine("ok")
	Else
		Name = Name.Remove(0, 1)
	End If

写真だけアップ その２

最近忙しいので

写真だけでもアップ

↓これ、何かの素材に使えそう・・・

16進数→10進数(RGB)

#80CADE → R:128 G:202 B:222

    Dim StrHex As String
    Dim intVal As Integer
    
    Dim R As Range
    Set R = Range("I30")
    
    Do Until R.Value = ""

        'R
        StrHex = Mid(R.Value, 2, 2)
        intVal = Val("&H" & StrHex)
        R.Offset(, -4).Value = intVal
        
        'G
        StrHex = Mid(R.Value, 4, 2)
        intVal = Val("&H" & StrHex)
        R.Offset(, -3).Value = intVal
        
        'B
        StrHex = Mid(R.Value, 6, 2)
        intVal = Val("&H" & StrHex)
        R.Offset(, -2).Value = intVal
      
        Set R = R.Offset(1)
    
    Loop

Consoleで終了・続行を選択

        Console.WriteLine(String.Format("ごにゃごにゃしますがよろしいですか？{0}続行：0{0}終了：1{0}", vbCrLf))
        Dim Input As String = Console.ReadLine()
        If Input = 1 Then
            Console.WriteLine(String.Empty)
            Console.WriteLine("処理が終了されました")
            Console.ReadLine()
            Exit Sub
        End If

今日は何の日？

今日はネコの日なんだって。

と言う訳で動画っす。

炸裂ネコパンチ！