Procesamiento de Archivos de Texto y Cálculo Estadístico en VB.NET

Estructura Principal del Formulario

Public Class Form1

Variables Generales

Dim v2() As Double

Dim i As Integer

Dim resultados(i) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Lectura y Procesamiento de Datos

Abrir Archivo de Datos

With OpenFileDialog1

.Filter = "Fichero de texto|*.txt"

.FilterIndex = 2

If (.ShowDialog() = Windows.Forms.DialogResult.OK) Then

If .FileName <> "" Then

Leer Archivo y Calcular el Número de Datos

Dim archivo As System.IO.FileStream

archivo = CType(.OpenFile(), System.IO.FileStream)

Dim Lectura As New System.IO.StreamReader(archivo)

Declaración de Variables

Dim cadena As String

Dim contador As Integer

Dim trozos() As String

While Not (Lectura.EndOfStream)

cadena = Lectura.ReadLine()

trozos = cadena.Split(";")

contador = contador + 1

Contador de Registros

End While

MsgBox(CStr(contador))

Cierre de Canales de Lectura

Lectura.Close()

archivo.Close()

Carga de Datos en Vector

ReDim v2(contador - 1)

archivo = CType(.OpenFile(), System.IO.FileStream)

Dim lectura2 As New System.IO.StreamReader(archivo)

Dim i As Integer

While Not (lectura2.EndOfStream)

v2(i) = CType(lectura2.ReadLine(), Double)

i = i + 1

End While

End If

End If

End With

Exportación y Resultados Estadísticos

With SaveFileDialog1

.Filter = "Fichero de texto|*.txt"

If (.ShowDialog() = Windows.Forms.DialogResult.OK) Then

If .FileName <> "" Then

Escritura del Fichero de Texto

Dim archivo As System.IO.FileStream

archivo = CType(.OpenFile(), System.IO.FileStream)

Dim escritura As New System.IO.StreamWriter(archivo)

Dim cadena As String

Dim v(12, 0) As Double

Dim resultados(6) As Single

Cálculos Estadísticos

resultados(0) = Datos(v2)

resultados(1) = Calcula_Media(v2)

resultados(2) = Calcula_Moda(v2)

resultados(3) = Calcula_Desviación_Típica(v2)

resultados(4) = Calcula_Mediana(v2)

resultados(5) = Calcula_máximo_valor(v2)

resultados(6) = Calcula_mínimo_valor(v2)

Mensajes Informativos

MsgBox("número de datos : " & resultados(0))

MsgBox(" Media : " & resultados(1))

MsgBox(" Moda : " & resultados(2))

MsgBox(" Desviacion : " & resultados(3))

MsgBox(" Mediana : " & resultados(4))

MsgBox(" Máximo : " & resultados(5))

MsgBox(" Mínimo : " & resultados(6))

Generación del Reporte en Texto

cadena = "Número de datos :" & CStr(resultados(0))

escritura.WriteLine(cadena)

cadena = "Media :" & CStr(resultados(1))

escritura.WriteLine(cadena)

cadena = "Moda :" & CStr(resultados(2))

escritura.WriteLine(cadena)

cadena = "Desviación_típica :" & CStr(resultados(3))

escritura.WriteLine(cadena)

cadena = "Mediana :" & CStr(resultados(4))

escritura.WriteLine(cadena)

cadena = "Máximo_valor :" & CStr(resultados(5))

escritura.WriteLine(cadena)

cadena = "Mínimo_valor :" & CStr(resultados(6))

escritura.WriteLine(cadena)

cadena = ""

Cierre Final

escritura.Close()

End If

End If

End With

End Sub

End Class