Visual Basic.NET - Leer texto que este dentro de comilla

   
Vista:

Leer texto que este dentro de comilla

Publicado por Kennedy (14 intervenciones) el 07/02/2015 20:22:03
Tengo una aplicacion hecha en VS.NET, lo que quiero es que me lea un archivo txt ejemplo

Este es el archivo de texto

mensaje="Esto es una demostracion"
link="wwwmywebsite.com"

Ese es el contenido del txt ahora lo que quiero es que un Formulario contenga 2 variables domde la variable1=mensaje y la variable 2=link, y que se muestre solo lo que esta dentro de las comillas para poderlos mostrar en 2 textbox diferes. Espero me puedan ayudar y muchas gracias de ante mano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Leer texto que este dentro de comilla

Publicado por viajero (1 intervención) el 08/02/2015 02:23:52
prueba de esta forma:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim a, b, c, d As String
Dim x, f, g, h As String
a = "mensaje=" & """Esto es una demostracion"""
b = (Mid(a, 10))
c = (Mid(b, 1))
d = Replace(c, """", "")
REM ========
x = "link=" & """wwwmywebsite.com"""
f = (Mid(x, 6))
g = (Mid(f, 1))
h = Replace(g, """", "")
TextBox1.Text = d
TextBox2.Text = h
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Leer texto que este dentro de comilla

Publicado por Kennedy (14 intervenciones) el 09/02/2015 16:55:52
Entiendo pero no quiero que este dentro del condigo del programa, ya que que el contenido estaria en blog de notas por separado, donde cuando lo cargues se mostrara la primera linea en texttbox y la segunda en otro
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Leer texto que este dentro de comilla

Publicado por Horroroso (46 intervenciones) el 10/02/2015 18:10:56
Te paso un codigo que quiza te ayude.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
imports System.Windows.Forms
 
Public Class Config
    Public Structure DataPair
        Dim strLabel As String
        Dim strValue As String
        Dim Label As System.Windows.Forms.Label
        Dim TextBox As System.Windows.Forms.TextBox
    End Structure
    Public Sub New(ByVal File As System.IO.FileInfo)
        _File = File
        FillData()
    End Sub
    Public Sub New(ByVal FilePath As String)
        _File = New System.IO.FileInfo(FilePath)
        FillData()
    End Sub
    Private Sub FillData()
        _Datos = New Generic.List(Of DataPair)
        Dim tx As New System.IO.StreamReader(_File.OpenRead)
        Dim i As Integer = 0
        Do While Not tx.EndOfStream
            Dim str As String = tx.ReadLine
            Dim s() As String = Split(str, "=")
            Dim lbl As New System.Windows.Forms.Label
            lbl.Text = s(0)
            lbl.Name = "lblPair" & i
            Dim txt As New System.Windows.Forms.TextBox
            txt.Text = s(1)
            txt.Name = "txtPair" & i
            Dim DP As New DataPair
            DP.strLabel = s(0)
            DP.strValue = s(1)
            DP.TextBox = txt
            DP.Label = lbl
            _Datos.Add(DP)
            i += 1
        Loop
 
    End Sub
    Dim _Datos As Generic.List(Of DataPair)
    Public ReadOnly Property Datos() As Generic.List(Of DataPair)
        Get
            Return _Datos
        End Get
    End Property
 
    Private _File As System.IO.FileInfo
    Public Property File() As System.IO.FileInfo
        Get
            Return _File
        End Get
        Set(ByVal value As System.IO.FileInfo)
            _File = value
        End Set
    End Property
 
End Class
 
 
Public Class Form1
 
    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim Container As New System.Windows.Forms.TableLayoutPanel
        Dim Cfig As New Config("C:\Datos_Ini.txt")
        Dim i As Integer = 1
        For Each d As Config.DataPair In Cfig.Datos
            Container.Controls.Add(d.Label, 1, i)
            Container.Controls.Add(d.TextBox, 2, i)
            i += 1
        Next
 
        Me.Controls.Add(Container)
    End Sub
 
End Class
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar