Commit c60b790c authored by aibara's avatar aibara

No commit message

No commit message
parent 02820e15

Microsoft Visual Studio Solution File, Format Version 11.00
# Visual Basic Express 2010
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "WindowsApplication1", "WindowsApplication1\WindowsApplication1.vbproj", "{41FA52F9-0BEF-4509-B9FD-115442D7D81D}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|x86 = Debug|x86
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{41FA52F9-0BEF-4509-B9FD-115442D7D81D}.Debug|x86.ActiveCfg = Debug|x86
{41FA52F9-0BEF-4509-B9FD-115442D7D81D}.Debug|x86.Build.0 = Debug|x86
{41FA52F9-0BEF-4509-B9FD-115442D7D81D}.Release|x86.ActiveCfg = Release|x86
{41FA52F9-0BEF-4509-B9FD-115442D7D81D}.Release|x86.Build.0 = Release|x86
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.ConversióToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ConvertirDocumentToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EditarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ObrirDocumentToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GuardarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GenerarWordToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label1 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.RichTextBox2 = New System.Windows.Forms.RichTextBox()
Me.Button9 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
Me.RichTextBox3 = New System.Windows.Forms.RichTextBox()
Me.MenuStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.EnableAutoDragDrop = True
Me.RichTextBox1.Font = New System.Drawing.Font("Times New Roman", 13.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RichTextBox1.Location = New System.Drawing.Point(204, 76)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(1265, 644)
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.Text = ""
Me.RichTextBox1.Visible = False
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ConversióToolStripMenuItem, Me.EditarToolStripMenuItem, Me.GenerarWordToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1481, 28)
Me.MenuStrip1.TabIndex = 11
Me.MenuStrip1.Text = "MenuStrip1"
'
'ConversióToolStripMenuItem
'
Me.ConversióToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ConvertirDocumentToolStripMenuItem})
Me.ConversióToolStripMenuItem.Name = "ConversióToolStripMenuItem"
Me.ConversióToolStripMenuItem.Size = New System.Drawing.Size(86, 24)
Me.ConversióToolStripMenuItem.Text = "Conversió"
'
'ConvertirDocumentToolStripMenuItem
'
Me.ConvertirDocumentToolStripMenuItem.Name = "ConvertirDocumentToolStripMenuItem"
Me.ConvertirDocumentToolStripMenuItem.Size = New System.Drawing.Size(211, 24)
Me.ConvertirDocumentToolStripMenuItem.Text = "Convertir Document"
'
'EditarToolStripMenuItem
'
Me.EditarToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ObrirDocumentToolStripMenuItem, Me.GuardarToolStripMenuItem})
Me.EditarToolStripMenuItem.Name = "EditarToolStripMenuItem"
Me.EditarToolStripMenuItem.Size = New System.Drawing.Size(101, 24)
Me.EditarToolStripMenuItem.Text = "Editar Takes"
'
'ObrirDocumentToolStripMenuItem
'
Me.ObrirDocumentToolStripMenuItem.Name = "ObrirDocumentToolStripMenuItem"
Me.ObrirDocumentToolStripMenuItem.Size = New System.Drawing.Size(185, 24)
Me.ObrirDocumentToolStripMenuItem.Text = "Obrir Document"
'
'GuardarToolStripMenuItem
'
Me.GuardarToolStripMenuItem.Name = "GuardarToolStripMenuItem"
Me.GuardarToolStripMenuItem.Size = New System.Drawing.Size(185, 24)
Me.GuardarToolStripMenuItem.Text = "Guardar"
'
'GenerarWordToolStripMenuItem
'
Me.GenerarWordToolStripMenuItem.Name = "GenerarWordToolStripMenuItem"
Me.GenerarWordToolStripMenuItem.Size = New System.Drawing.Size(114, 24)
Me.GenerarWordToolStripMenuItem.Text = "Generar Word"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(201, 43)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(222, 17)
Me.Label1.TabIndex = 12
Me.Label1.Text = "Visualització Previa a la conversió"
Me.Label1.Visible = False
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.RichTextBox2)
Me.GroupBox1.Controls.Add(Me.Button9)
Me.GroupBox1.Controls.Add(Me.TextBox1)
Me.GroupBox1.Controls.Add(Me.Button7)
Me.GroupBox1.Controls.Add(Me.Button6)
Me.GroupBox1.Controls.Add(Me.Button5)
Me.GroupBox1.Location = New System.Drawing.Point(12, 76)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(172, 193)
Me.GroupBox1.TabIndex = 25
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Opcions per insertar"
Me.GroupBox1.Visible = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 29)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(136, 17)
Me.Label2.TabIndex = 26
Me.Label2.Text = "Selecciona el símbol"
'
'RichTextBox2
'
Me.RichTextBox2.EnableAutoDragDrop = True
Me.RichTextBox2.Enabled = False
Me.RichTextBox2.Font = New System.Drawing.Font("Times New Roman", 13.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RichTextBox2.Location = New System.Drawing.Point(6, 153)
Me.RichTextBox2.Name = "RichTextBox2"
Me.RichTextBox2.ReadOnly = True
Me.RichTextBox2.Size = New System.Drawing.Size(161, 33)
Me.RichTextBox2.TabIndex = 30
Me.RichTextBox2.Text = ""
'
'Button9
'
Me.Button9.Enabled = False
Me.Button9.Location = New System.Drawing.Point(107, 124)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(60, 23)
Me.Button9.TabIndex = 29
Me.Button9.Text = "ADD CUSTOM"
Me.Button9.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Enabled = False
Me.TextBox1.Location = New System.Drawing.Point(6, 125)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(95, 22)
Me.TextBox1.TabIndex = 28
'
'Button7
'
Me.Button7.Enabled = False
Me.Button7.Location = New System.Drawing.Point(89, 58)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(78, 28)
Me.Button7.TabIndex = 27
Me.Button7.Text = "( OFF )"
Me.Button7.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Enabled = False
Me.Button6.Location = New System.Drawing.Point(6, 91)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(161, 28)
Me.Button6.TabIndex = 26
Me.Button6.Text = "( ON / OFF )"
Me.Button6.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Enabled = False
Me.Button5.Location = New System.Drawing.Point(6, 58)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(77, 28)
Me.Button5.TabIndex = 25
Me.Button5.Text = "( ON )"
Me.Button5.UseVisualStyleBackColor = True
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 737)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1481, 22)
Me.StatusStrip1.TabIndex = 26
Me.StatusStrip1.Text = "StatusStrip1"
'
'ToolStripStatusLabel1
'
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
'
'RichTextBox3
'
Me.RichTextBox3.Location = New System.Drawing.Point(41, 525)
Me.RichTextBox3.Name = "RichTextBox3"
Me.RichTextBox3.Size = New System.Drawing.Size(138, 96)
Me.RichTextBox3.TabIndex = 27
Me.RichTextBox3.Text = ""
Me.RichTextBox3.Visible = False
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.ClientSize = New System.Drawing.Size(1481, 759)
Me.Controls.Add(Me.RichTextBox3)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.MenuStrip1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.MainMenuStrip = Me.MenuStrip1
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.Text = "Takeiteasy"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents RichTextBox2 As System.Windows.Forms.RichTextBox
Friend WithEvents Button9 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents ConversióToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ConvertirDocumentToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EditarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ObrirDocumentToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents GuardarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents GenerarWordToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents RichTextBox3 As System.Windows.Forms.RichTextBox
End Class
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>149, 17</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>248, 17</value>
</metadata>
</root>
\ No newline at end of file
Imports Word = Microsoft.Office.Interop.Word
Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim doc As New Word.Document
Dim WordApp As New Word.Application()
Dim file As Object = "Z:\j.doc"
Dim Nothingobj As Object = System.Reflection.Missing.Value
doc = WordApp.Documents.Open(file, Nothingobj, Nothingobj, Nothingobj, Nothingobj, Nothingobj, Nothingobj, Nothingobj, Nothingobj, Nothingobj, Nothingobj, Nothingobj)
doc.ActiveWindow.Selection.WholeStory()
doc.ActiveWindow.Selection.Copy()
Dim data As IDataObject = Clipboard.GetDataObject()
doc.Close()
End Sub
Private Sub DesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "Document de Word Convertit|*.doc"
saveFileDialog1.Title = "Guardar Document de Word Convertit"
saveFileDialog1.ShowDialog()
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
RichTextBox1.SaveFile(saveFileDialog1.FileName, _
RichTextBoxStreamType.PlainText)
MsgBox("correcto")
End If
End Sub
Private Sub SortirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End
End Sub
Private Sub ConvertirDocumentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConvertirDocumentToolStripMenuItem.Click
End Sub
Private Sub ObrirDocumentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ObrirDocumentToolStripMenuItem.Click
RichTextBox1.Text = ""
End Sub
Private Sub GuardarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarToolStripMenuItem.Click
End Sub
Private Sub GenerarWordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerarWordToolStripMenuItem.Click
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "Word Final |*.doc"
saveFileDialog1.Title = "Document de Word Final "
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
' Create Word Application
Dim oWord As Object
oWord = CreateObject("Word.Application")
' Create new word document
Dim doc As New Word.Document
oWord.ScreenUpdating = False
ToolStripStatusLabel1.Text = "Word obert"
Dim file As Object = saveFileDialog1.FileName
Dim data As IDataObject = Clipboard.GetDataObject()
Dim oTable As Word.Table
Dim datos(0 To RichTextBox1.Lines.GetLength(0), 0 To 2) As String
Dim i As Integer
i = 0
Dim lines() As String = RichTextBox1.Lines
Dim doit As String
doit = "false"
For Each line As String In RichTextBox1.Lines
Dim primercaracter As String
If RichTextBox1.Lines(i).ToString = vbCrLf Then MsgBox(RichTextBox1.Lines(i).ToString)
If (RichTextBox1.Lines(i).ToString = "") Then
'MsgBox(RichTextBox1.Lines(i).ToString & vbCrLf & i)
Else
primercaracter = RichTextBox1.Lines(i).Substring(0, 1).ToString
If (primercaracter = "<") Then
datos(i, 0) = "newtake"
datos(i, 1) = RichTextBox1.Lines(i).Trim.ToString
datos(i, 2) = "-NADA-"
doit = "true"
ElseIf (primercaracter = "*") Then
Dim textof As String
Dim textofs() As String