• Domingo 22 de Diciembre de 2024, 23:16

Autor Tema:  Variable De Tipo Streamwriter  (Leído 4882 veces)

dreamer

  • Miembro activo
  • **
  • Mensajes: 34
    • Ver Perfil
Variable De Tipo Streamwriter
« en: Lunes 14 de Noviembre de 2005, 15:34 »
0
Hola Compañeros(as)

Hace poco empece con VISUAL NET y esta bastante interesante, estoy siguiendo un libro que uno de ustedes mismo ofrecio en este mismo Foro Programacion en Visual Basic Net del grupo Eidos, pero en la pagina 105 aparece un ejemplo a realizar (Una aplicacion con funcionalidad Basica).

Este ejemplo trata basicamente en un formulario en el que introduciremos el nombre de un fichero y un pequeño texto, que seguidamente grabaremos en
nuestro equipo.

El hecho que hay un boton llamado Grabar Texto (BtnGrabarTexto) y en el mimo libro te aparece el codigo que va en esta evento clic del boton:

Private Sub btnGrabar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnGrabar.Click
' declarar una variable para la escritura
' de texto en un fichero
Dim oEscritor As StreamWriter
' crear un fichero de texto vacío
' y obtener un objeto StreamWriter
' para escribir en el fichero
oEscritor = File.CreateText(Environment.CurrentDirectory & "\" &
Me.txtNombreFichero.Text & ".TXT")
' escribir en el fichero el contenido del
' control TextBox
oEscritor.Write(Me.txtTexto.Text)
' cerrar el objeto, lo que cierra también el
' fichero, y eliminar el objeto
oEscritor.Close()
oEscritor = Nothing
End Sub

Este es el codigo pero tengo problemas en la linea en que declaro la variable del tipo: StreamWriter.

En esta linea:
     Dim oEscritor As StreamWriter

Se me marca StreamWriter de color azul y me dice visual:

    El Tipo StreamWriter no esta definido.

Y ahora me estoy dando cuanta que hay otro error bueno les voy a adjuntar el ejemplo, este ejemplo esta en la pagina 105 y el codigo del boton grabar esta en la pagina 111.

Entonces ahora bien la pregunta porque pasa eso, que hice mal si segui los pasos que aparecian en el libro, o me faltara agregar algo asi como una referencia.

Bueno espero haber sido claro, espero tambien que me puedan ayudar para continuar aprendiendo esta version de Visual Net.

Se Agradece de antemano

Les adjunto de todas formas el ejmplo
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

Marauder

  • Miembro activo
  • **
  • Mensajes: 99
    • Ver Perfil
Re: Variable De Tipo Streamwriter
« Respuesta #1 en: Lunes 14 de Noviembre de 2005, 17:29 »
0
Cuando trabajes con ficheros debes utilizar la clase System.IO, para lo cual debes escribir lo siguiente:

Imports System.IO

Public Class Form1


End Class

Espero haberte sido de ayuda.

dreamer

  • Miembro activo
  • **
  • Mensajes: 34
    • Ver Perfil
Re: Variable De Tipo Streamwriter
« Respuesta #2 en: Lunes 14 de Noviembre de 2005, 18:19 »
0
hola gracias por tu respuesta me sirvio de mucho.
Pero donde la puse nose si sera la parte mas apropiada.

Option Explicit On
Imports System.IO
Public Class Form1

End Class

Public Class TxtTexto
    Inherits System.Windows.Forms.Form

#Region " Código generado por el Diseñador de Windows Forms "

    Public Sub New()
        MyBase.New()

        'El Diseñador de Windows Forms requiere esta llamada.
        InitializeComponent()

        'Agregar cualquier inicialización después de la llamada a InitializeComponent()

    End Sub

    'Form reemplaza a Dispose para limpiar la lista de componentes.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Requerido por el Diseñador de Windows Forms
    Private components As System.ComponentModel.IContainer

    'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
    'Puede modificarse utilizando el Diseñador de Windows Forms.
    'No lo modifique con el editor de código.
    Friend WithEvents lblNombreFichero As System.Windows.Forms.Label
    Friend WithEvents TxtNombreFichero As System.Windows.Forms.TextBox
    Friend WithEvents lblTexto As System.Windows.Forms.Label
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents BtnGrabarTexto As System.Windows.Forms.Button
    Friend WithEvents BtnSalir As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.lblNombreFichero = New System.Windows.Forms.Label
        Me.TxtNombreFichero = New System.Windows.Forms.TextBox
        Me.lblTexto = New System.Windows.Forms.Label
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.BtnGrabarTexto = New System.Windows.Forms.Button
        Me.BtnSalir = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'lblNombreFichero
        '
        Me.lblNombreFichero.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblNombreFichero.Location = New System.Drawing.Point(16, 32)
        Me.lblNombreFichero.Name = "lblNombreFichero"
        Me.lblNombreFichero.Size = New System.Drawing.Size(112, 16)
        Me.lblNombreFichero.TabIndex = 0
        Me.lblNombreFichero.Text = "Nombre Fichero"
        '
        'TxtNombreFichero
        '
        Me.TxtNombreFichero.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TxtNombreFichero.Location = New System.Drawing.Point(136, 32)
        Me.TxtNombreFichero.Name = "TxtNombreFichero"
        Me.TxtNombreFichero.Size = New System.Drawing.Size(104, 21)
        Me.TxtNombreFichero.TabIndex = 1
        Me.TxtNombreFichero.Text = ""
        '
        'lblTexto
        '
        Me.lblTexto.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblTexto.Location = New System.Drawing.Point(16, 80)
        Me.lblTexto.Name = "lblTexto"
        Me.lblTexto.Size = New System.Drawing.Size(40, 16)
        Me.lblTexto.TabIndex = 2
        Me.lblTexto.Text = "Texto"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(136, 72)
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(104, 72)
        Me.TextBox1.TabIndex = 3
        Me.TextBox1.Text = ""
        '
        'BtnGrabarTexto
        '
        Me.BtnGrabarTexto.Location = New System.Drawing.Point(40, 192)
        Me.BtnGrabarTexto.Name = "BtnGrabarTexto"
        Me.BtnGrabarTexto.Size = New System.Drawing.Size(80, 24)
        Me.BtnGrabarTexto.TabIndex = 4
        Me.BtnGrabarTexto.Text = "Grabar Texto"
        '
        'BtnSalir
        '
        Me.BtnSalir.Location = New System.Drawing.Point(176, 192)
        Me.BtnSalir.Name = "BtnSalir"
        Me.BtnSalir.Size = New System.Drawing.Size(88, 24)
        Me.BtnSalir.TabIndex = 5
        Me.BtnSalir.Text = "Salir"
        '
        'TxtTexto
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(320, 273)
        Me.Controls.Add(Me.BtnSalir)
        Me.Controls.Add(Me.BtnGrabarTexto)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.lblTexto)
        Me.Controls.Add(Me.TxtNombreFichero)
        Me.Controls.Add(Me.lblNombreFichero)
        Me.Name = "TxtTexto"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        Me.Close()
    End Sub

    Private Sub BtnGrabarTexto_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGrabarTexto.Click

        ' declarar una variable para la escritura
        ' de texto en un fichero
        Dim oEscritor As StreamWriter
        ' crear un fichero de texto vacío
        ' y obtener un objeto StreamWriter
        ' para escribir en el fichero
        oEscritor = File.CreateText(Environment.CurrentDirectory & "\" & Me.TxtNombreFichero.Text & ".TXT")
        ' escribir en el fichero el contenido del
        ' control TextBox
        oEscritor.Write(Me.TextBox1.Text)
        ' cerrar el objeto, lo que cierra también el
        ' fichero, y eliminar el objeto
        oEscritor.Close()
        oEscritor = Nothing

    End Sub
End Class

Una pregunta mas cada vez uno trabaje con clases (Para mi caso Clase Sytem.IO) siempre se debe poner Public Class Form1 y despues End Class.

y que significan esas dos lineas, pero en castellano:

Imports System.IO

Public Class Form1


End Class


gracias de antemano por tu tiempo y paciencia

Marauder

  • Miembro activo
  • **
  • Mensajes: 99
    • Ver Perfil
Re: Variable De Tipo Streamwriter
« Respuesta #3 en: Martes 15 de Noviembre de 2005, 10:26 »
0
Hola, el sitio donde lopusiste es corrrecto pero solo debes poner Imports System.IO, el resto te lo puse a modo de ejemplo para explicarte donde ponerlo.

dreamer

  • Miembro activo
  • **
  • Mensajes: 34
    • Ver Perfil
Re: Variable De Tipo Streamwriter
« Respuesta #4 en: Miércoles 16 de Noviembre de 2005, 15:53 »
0
gracias por la ayuda......

gomcar

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Variable De Tipo Streamwriter
« Respuesta #5 en: Jueves 15 de Junio de 2006, 16:53 »
0
He podido crear un txt gracias a este post... :P

asi que les agradezco yo tambien....