Forum Ubuntu-it

Codice: Seleziona tutto

Imports System.Xml
Imports System.IO

Public Class Form1

    Dim myFileDlog As New Windows.Forms.OpenFileDialog()
    Dim filepath As String
    Dim ascii(255) As String
    

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_1.Click

        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 5
        ProgressBar1.Value = 0

        'look for files in the c drive
        myFileDlog.InitialDirectory = "c:\"

        'specifies what type of data files to look for
        myFileDlog.Filter = "All Files (*.*)|*.*" & _
            "|File Xml (*.xml)|*.xml"

        'specifies which data type is focused on start up
        myFileDlog.FilterIndex = 2

        'Gets or sets a value indicating whether the dialog box restores the current directory before closing.
        myFileDlog.RestoreDirectory = True

        'seperates message outputs for files found or not found
        If myFileDlog.ShowDialog() = _
            Windows.Forms.DialogResult.OK Then
            If Dir(myFileDlog.FileName) <> "" Then
                MsgBox("File Exists: " & _
                       myFileDlog.FileName, _
                       MsgBoxStyle.Information)
            Else
                MsgBox("File Not Found", _
                       MsgBoxStyle.Critical)
            End If
        End If

        'Adds the file directory to the text box
        TextBox1.Text = myFileDlog.FileName

        'carichiamo la stringa nella textbox se il file è stato scelto'
        TextBox2.Enabled = False
        TextBox2.Text = " nessun file caricato "
        If (TextBox1.Text <> "") Then
            TextBox2.Text = " caricato il file di conversione"
        End If
    End Sub

    Public Function LoadXMLDoc() As XmlDocument
        Dim xdoc As XmlDocument
        Dim lnum As Long
        'Dim pos As Long'
        'Dim Newxml As String'
        Try
            xdoc = New XmlDocument()
            xdoc.Load(filepath)
        Catch ex As XmlException
            'MessageBox.Show(ex.Message)
            lnum = ex.LineNumber
            ReplaceSpecialChars(lnum)

            xdoc = LoadXMLDoc()

        End Try
        Return (xdoc)
    End Function

   
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        filepath = myFileDlog.FileName
        Dim xmldoc As New XmlDocument()
        Dim num As New Long()
        xmldoc = LoadXMLDoc()
    End Sub

    Private Sub ReplaceSpecialChars(ByVal linenumber As Long)
        Dim strm As StreamReader
        Dim strline As String
        Dim strreplace As String = " "

        Dim tempfile As String = "C:\temp.xml"
        Try
            FileCopy(filepath, tempfile)
        Catch ex As Exception

        End Try

        Dim strmwriter As New StreamWriter(filepath)
        strmwriter.AutoFlush = True
        strm = New StreamReader(tempfile)

        Dim i As Long = 0
        While i < linenumber - 1
            strline = strm.ReadLine
            strmwriter.WriteLine(strline)
            i = i + 1

        End While

        Dim lineposition As Int32
        Dim str_vuoto As String = " "
        Dim carattere_strano As String

        strline = strm.ReadLine

        For k As Integer = 0 To ascii.Length
            ascii(k) = Chr(k)
            carattere_strano = ascii(k)
            lineposition = InStr(strline, carattere_strano)
            If lineposition > 0 Then
                strreplace = str_vuoto
                strline = Mid(strline, 1, lineposition - 1) + strreplace + Mid(strline, lineposition + 1)
                strmwriter.WriteLine(strline)
            End If
            
            Exit For
        Next
        'strline = Mid(strline, 1, lineposition - 1) + strreplace + Mid(strline, lineposition + 1)'
        'strmwriter.WriteLine(strline)'

        'strline = Mid(strline, 1, lineposition - 1) + strreplace + Mid(strline, lineposition - 1)'


        'Exit For'


        strline = strm.ReadToEnd
        strmwriter.WriteLine(strline)

        strm.Close()
        strm = Nothing

        strmwriter.Flush()
        strmwriter.Close()
        strmwriter = Nothing



    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class

Codice: Seleziona tutto

strline = Mid(strline, 1, lineposition - 1) + strreplace + Mid(strline, lineposition + 1)