Gioco a programmare: luglio 2018

domenica 22 luglio 2018

Ripasso di OpenFileDialog

Public Class Form1
    Dim stringa As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = "Files HTML|*.html"
        OpenFileDialog1.FileName = ""
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName
            Dim stringa As String = OpenFileDialog1.FileName
            TextBox1.Text = splitPath(stringa)
            TextBox2.Text = splitFileName(stringa)
        End If
    End Sub

    Private Function splitFileName(s As String) As String
        Return s.Substring(s.LastIndexOf("\") + 1, s.Length - 1 - s.LastIndexOf("\"))
    End Function

    Private Function splitPath(s As String) As String
        Return s.Substring(0, s.LastIndexOf("\") + 1)
    End Function
End Class

venerdì 20 luglio 2018

Apertura di un file HTML per la lettura del codice in VB.NET

Ripassiamo l'apertura dei files (in VB6 era completamente diversa, e in VB.NET, pur avendola usata, l'ho dimenticata da un pezzo.
Devo aprire un file html per mostrarne il codice.
Presto fatto:

Imports System.IO
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim sr As New StreamReader("C:\users\antonello\documents\prova.html")
        Dim line As String = sr.ReadToEnd()
        TextBox1.Text = line
    End Sub
End Class

Ed ecco il codice nella TextBox:

<html>
<body bgcolor=green>
<div style="background-color:red;color:white">Ciao bestia</div>
</body>

mercoledì 18 luglio 2018

Individuare la posizione di tutti gli spazi di una stringa (ma va bene per qualunque altro carattere o sottostringa)

Una piccola sfida propostami da mio figlio: individuare tutte le parole una per una in una stringa. Per cominciare, ho provato a individuare la posizione degli spazi fra le parole.

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim pos As Integer = -1
        Dim start As Integer = 1
        Dim stringa As String = "gongolo mammolo cucciolo eolo dotto pisolo brontolo"
        Dim stringhetta As String = " "

        While pos <> 0
            If pos <> -1 Then Debug.Print(pos)
            pos = InStr(start, stringa, stringhetta)

            start = pos + 1
        End While
    End Sub
End Class

Risultato:

Ma non è ancora raggiunto lo scopo: vuole che la parola venga colorata durante la digitazione se viene riconosciuta come una particolare parola.
Intanto, deve usare una richTextBox, se ricordo bene... e poi... vedremo.

Gioco a programmare

JavascriptProva