RecorteX

Estructura basica de una clase

descargar
 
''' -----------------------------------------------------------------------------
''' <summary>
''' Comentarios
''' </summary>
''' -----------------------------------------------------------------------------
Public Class NombreClase
#Region "Atributos"
    Private _ChangedItem As System.Windows.Forms.GridItem
    Private _OldValue As Object
#End Region
#Region "Propiedades"
 
    Public Property ChangedItem() As System.Windows.Forms.GridItem
        Get
            Return _ChangedItem
        End Get
        Set(ByVal Value As System.Windows.Forms.GridItem)
            _ChangedItem = Value
        End Set
    End Property
 
    Public Property OldValue() As Object
        Get
            Return _OldValue
        End Get
        Set(ByVal Value As Object)
            _OldValue = Value
        End Set
    End Property
 
#End Region
 
#Region "Constructor"
    Public Sub New()
    End Sub
#End Region
#Region "Metodos"
#End Region
End Class
 

Asignar un string a un XmlTextReader

descargar
 
  Dim reader As New System.Xml.XmlTextReader(New System.IO.StringReader("<xmlaleer att1=""/>"))
 

Traer valores atributos de un xml, cuando usa namespaces

descargar
 
   Private Function GenerarXML(ByVal xmlStr As String, ByVal appendBuffer As String, ByRef strFileName As String) As String
        Dim xmlStrOriginal As String = xmlStr
        Dim xmlDoc As New XmlDocument
        Dim xnav As XPath.XPathNavigator
        Dim mngr As New XmlNamespaceManager(New NameTable)
        mngr.AddNamespace("ns", "http://www.dominio.com/Schemas/Documentos")
        Dim enc As XmlElement
 
        xmlDoc.LoadXml(xmlStr)
        enc = xmlDoc.SelectSingleNode("Nodo1/Nodo2/ns:nsNodo1/ns:nsNodo2", mngr)
        xmlDoc.LoadXml(enc.OuterXml)
        xnav = xmlDoc.CreateNavigator()
        Att1 = xnav.Evaluate("string(/*/@Att1)")
        Att2 = xnav.Evaluate("string(/*/@Att2)")
 
        Return xmlStr
    End Function
 

Copiar y Pegar objetos en vb.net

Para subir al Clipboard

descargar
 
  Dim data As New Object
  Dim data_object As New DataObject
  data_object.SetData("Descripcion o identificador del objeto", data)
  Clipboard.SetDataObject(data_object)
 

Para bajar del Clipboard

descargar
 
  Dim iDataObject As IDataObject = Clipboard.GetDataObject()
  If iDataObject.GetDataPresent("Descripcion o identificador del objeto") Then
    Dim data As New Object
    data = DirectCast(iDataObject.GetData("Descripcion o identificador del objeto"), object)
  End If
 

descargar
 
Imports System
Imports System.Text
Imports System.Text.RegularExpressions.Regex
 
Dim reg As RegularExpressions.Regex
Dim textoOriginal As String = "Mañana será otro día"
'transformación UNICODE
Dim textoNormalizado As String = textoOriginal.Normalize(NormalizationForm.FormD)
 
'coincide todo lo que no sean letras y números ascii o espacio
'y lo reemplazamos por una cadena vacía.
 
reg = New RegularExpressions.Regex("[^a-zA-Z0-9 ]")
Dim textoSinAcentos As String = reg.Replace(textoNormalizado, "")
         
Debug.WriteLine(textoSinAcentos)
'muestra 'Manana sera otro dia'
 

descargar
 
Dim ConSignos As String ="áàäéèëíìïóòöúùü�ÀÄÉÈË�?Ì�?ÓÒÖÚÙÜçÇ"
Dim SinSignos As String ="aaaeeeiiiooouuuAAAEEEIIIOOOUUUçÇ"
Dim v as integer
Dim texto as string
 
for(v=0;v<SinSignos.Length;v++) {
 
 Dim i As string=ConSignos.Substring(v,1)
 Dim j As string=SinSignos.Substring(v,1)
 
 texto=texto.replace(i,j)
}
 

Este proceso usa un xml y un xsl de entrada y regresa el xml transformado

descargar
 
  -----------------------------------------------------------------------------
    <summary>
    Transforma un xml en otro xml
    </summary>
    <param name="txt">un string que contiene el xml origen</param>
    <param name="xslFile">Archivo xsl para la transformacion</param>
    <returns>el xml transformado</returns>
    -----------------------------------------------------------------------------
   Private Function xslTrans(ByVal txt As String, ByVal xslFile As String) As XmlDocument
       Dim xslTran As New XslTransform
       Dim oDocOut As New XmlDocument
       Dim oDoc As New XmlDocument
       Dim oNav As XPath.XPathNavigator
       Dim oXsl As XmlTextReader
       Try
           oXsl = New XmlTextReader(xslFile)
           oDoc.LoadXml(txt)
           oNav = oDoc.CreateNavigator()
           xslTran.Load(oXsl, Nothing, Me.GetType().Assembly.Evidence)
           oDocOut.Load(xslTran.Transform(oNav, Nothing, New Xml.XmlUrlResolver))
       Catch ex As Exception
           Console.Write("Error:" + vbCr + ex.Message)
       End Try
       oDocOut.Normalize()
       Return oDocOut
   End Function
 

descargar
 
      Function LeeDatos(ByVal txt As String) As Array
        Dim rpr As Integer = 30
        Dim comas As Integer = 0
        Dim reng As Integer = 0
        Dim arr(rpr, 0) As String
        Dim car As Char
        For Each car In txt
            If car <> Chr(10) Then
                If (car = Chr(13)) Then car = ","
                If (car <> ",") Then
                    arr(comas, reng) = arr(comas, reng) + car
                Else
                    If comas = rpr Then
                        comas = 0
                        reng = reng + 1
                        ReDim Preserve arr(rpr, reng)
                    Else
                        comas = comas + 1
                    End If
                End If
            End If
        Next
        ReDim Preserve arr(rpr, reng - 1)
        Return arr
    End Function
 

descargar
 
  SELECT b.name AS tabla, a.name AS columna
           FROM syscolumns a INNER JOIN sysobjects b
           ON a.id=b.id
           WHERE b.name='nombretabla'
           AND a.iscomputed=1
 

sp_helptext
This is the same as in SQL server 2000 nothing new here

descargar
 
sp_helptext 'dbo.uspGetBillOfMaterials'
 

sys.sql_modules
So this is a new view in SQL Server 2005, what we need is the definition column

descargar
 
SELECT definition
FROM sys.sql_modules
WHERE object_id = OBJECT_ID('dbo.uspGetBillOfMaterials')
 

OBJECT_DEFINITION()
This is a new function in SQL Server 2005, just combine it with OBJECT_ID to get the proc code back

descargar
 
SELECT OBJECT_DEFINITION (OBJECT_ID('dbo.uspGetBillOfMaterials'))
 

INFORMATION_SCHEMA.ROUTINES
This is the problematic one, if the ROUTINE_DEFINITION is greater than 4000 characters then it will be truncated

descargar
 
SELECT ROUTINE_DEFINITION
FROM INFORMATION_SCHEMA.ROUTINES
WHERE SPECIFIC_NAME ='uspGetBillOfMaterials'
AND SPECIFIC_SCHEMA= 'dbo'