Esto de vb a c#(Buscar dentro e un xml)

Si,bueno, tendras que pensar un poquito y proponer dudas concretas.no
pretenderas que te lo traduzca yo verdad? de todas formas busca en internet
porque hay numerosos traductores automaticos.

Hola,

Si miras el convertidor de el
Guille,http://www.elguille.info/NET/WebSer...sWeb.aspx, sería algo
así:

using System.Xml;
using System.IO;
public class CXML{
internal object GetCampoXML(string Archivo, string BitReq) {
string string Bit63SubCampo = "XX");
XmlTextReader ObjReadXML = new XmlTextReader(new
StringReader(Archivo)); //Leer
desde un string;
//Dim ObjReadXML As New XmlTextReader(Archivo) 'Leer desde un
archivo
GetCampoXML = "";
while( ObjReadXML.Read()){
switch(ObjReadXML.NodeType){
case XmlNodeType.Element:
if( ObjReadXML.Name == "field" ){
while( ObjReadXML.MoveToNextAttribute){
if( (ObjReadXML.Name = "id" & ObjReadXML.Value;
= BitReq & BitReq != "63") ){
GetCampoXML =
ObjReadXML.ReadElementString();
ObjReadXML.Close();
}
}
}else if( ObjReadXML.Name == "subcampo" ){
while( ObjReadXML.MoveToNextAttribute){
if( (ObjReadXML.Name = "id" & ObjReadXML.Value;
= Bit63SubCampo) ){
GetCampoXML =
ObjReadXML.ReadElementString();
ObjReadXML.Close();
}
}
}
//Case XmlNodeType.Text
// MsgBox("XmlNodeType.Text | ObjReadXML.Value: " &
ObjReadXML.Value);
break; }
}
ObjReadXML = null;
}
}

saludos


José Miguel Torres
jtorres_diaz~~ARROBA~~terra.es
http://jmtorres.blogspot.com


"RADM" escribió en el mensaje
news:

Amigos necesito pasar esto a codigo c# alguin sabe como
??

Imports System.Xml
Imports System.IO
Public Class CXML
Function GetCampoXML(ByVal Archivo As String, ByVal BitReq As String,
Optional ByVal Bit63SubCampo As String = "XX") As String
Dim ObjReadXML As New XmlTextReader(New StringReader(Archivo))
'Leer desde un string
'Dim ObjReadXML As New XmlTextReader(Archivo) 'Leer desde un
archivo
GetCampoXML = ""
While ObjReadXML.Read()
Select Case ObjReadXML.NodeType
Case XmlNodeType.Element
If ObjReadXML.Name = "field" Then
While ObjReadXML.MoveToNextAttribute
If (ObjReadXML.Name = "id" And ObjReadXML.Value
= BitReq And BitReq <> "63") Then
GetCampoXML =
ObjReadXML.ReadElementString()
ObjReadXML.Close()
End If
End While
ElseIf ObjReadXML.Name = "subcampo" Then
While ObjReadXML.MoveToNextAttribute
If (ObjReadXML.Name = "id" And ObjReadXML.Value
= Bit63SubCampo) Then
GetCampoXML =
ObjReadXML.ReadElementString()
ObjReadXML.Close()
End If
End While
End If
'Case XmlNodeType.Text
' MsgBox("XmlNodeType.Text | ObjReadXML.Value: " &
ObjReadXML.Value)
End Select
End While
ObjReadXML = Nothing
End Function
End Class

pero tendrá que convertir ese método, ya que C# no admite parámetros
opcionales y el conversor "se lo traga"

Por cierto, se ve que dejó de andar la página del conversor, pero hace un
rato que lo he actualizado y chequeado de que está nuevamente operativo.

Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Mentor Asociado de Solid Quality Learning Iberoamericana

¡Vuelven los foros del Guille!
(en pruebas, pero vuelven)
http://test.foros.elguille.info/

"José Miguel Torres" <jtorres_diaz~~ARROBA~~terra.es> escribió en el mensaje
news:

Hola,

Si miras el convertidor de el
Guille,http://www.elguille.info/NET/WebSer...sWeb.aspx, sería algo
así:

using System.Xml;
using System.IO;
public class CXML{
internal object GetCampoXML(string Archivo, string BitReq) {
string string Bit63SubCampo = "XX");
XmlTextReader ObjReadXML = new XmlTextReader(new
StringReader(Archivo)); //Leer
desde un string;
//Dim ObjReadXML As New XmlTextReader(Archivo) 'Leer desde un
archivo
GetCampoXML = "";
while( ObjReadXML.Read()){
switch(ObjReadXML.NodeType){
case XmlNodeType.Element:
if( ObjReadXML.Name == "field" ){
while( ObjReadXML.MoveToNextAttribute){
if( (ObjReadXML.Name = "id" & ObjReadXML.Value;
= BitReq & BitReq != "63") ){
GetCampoXML =
ObjReadXML.ReadElementString();
ObjReadXML.Close();
}
}
}else if( ObjReadXML.Name == "subcampo" ){
while( ObjReadXML.MoveToNextAttribute){
if( (ObjReadXML.Name = "id" & ObjReadXML.Value;
= Bit63SubCampo) ){
GetCampoXML =
ObjReadXML.ReadElementString();
ObjReadXML.Close();
}
}
}
//Case XmlNodeType.Text
// MsgBox("XmlNodeType.Text | ObjReadXML.Value: " &
ObjReadXML.Value);
break; }
}
ObjReadXML = null;
}
}

saludos


José Miguel Torres
jtorres_diaz~~ARROBA~~terra.es
http://jmtorres.blogspot.com


"RADM" escribió en el mensaje
news:

Amigos necesito pasar esto a codigo c# alguin sabe como
??

Imports System.Xml
Imports System.IO
Public Class CXML
Function GetCampoXML(ByVal Archivo As String, ByVal BitReq As String,
Optional ByVal Bit63SubCampo As String = "XX") As String
Dim ObjReadXML As New XmlTextReader(New StringReader(Archivo))
'Leer desde un string
'Dim ObjReadXML As New XmlTextReader(Archivo) 'Leer desde un
archivo
GetCampoXML = ""
While ObjReadXML.Read()
Select Case ObjReadXML.NodeType
Case XmlNodeType.Element
If ObjReadXML.Name = "field" Then
While ObjReadXML.MoveToNextAttribute
If (ObjReadXML.Name = "id" And
ObjReadXML.Value = BitReq And BitReq <> "63") Then
GetCampoXML =
ObjReadXML.ReadElementString()
ObjReadXML.Close()
End If
End While
ElseIf ObjReadXML.Name = "subcampo" Then
While ObjReadXML.MoveToNextAttribute
If (ObjReadXML.Name = "id" And
ObjReadXML.Value = Bit63SubCampo) Then
GetCampoXML =
ObjReadXML.ReadElementString()
ObjReadXML.Close()
End If
End While
End If
'Case XmlNodeType.Text
' MsgBox("XmlNodeType.Text | ObjReadXML.Value: " &
ObjReadXML.Value)
End Select
End While
ObjReadXML = Nothing
End Function
End Class

por cierto, comprueba la hora de tu equipo, que vas un mes adelantado... y
la excusa esa de que "es que estaba probando un programa y se me olvidó", ya
está mu vista, hay que tener "ojito" con esas cosas...

Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Mentor Asociado de Solid Quality Learning Iberoamericana

¡Vuelven los foros del Guille!
(en pruebas, pero vuelven)
http://test.foros.elguille.info/

"RADM" escribió en el mensaje
news:

Amigos necesito pasar esto a codigo c# alguin sabe como
??

Imports System.Xml
Imports System.IO
Public Class CXML
Function GetCampoXML(ByVal Archivo As String, ByVal BitReq As String,
Optional ByVal Bit63SubCampo As String = "XX") As String
Dim ObjReadXML As New XmlTextReader(New StringReader(Archivo))
'Leer desde un string
'Dim ObjReadXML As New XmlTextReader(Archivo) 'Leer desde un
archivo
GetCampoXML = ""
While ObjReadXML.Read()
Select Case ObjReadXML.NodeType
Case XmlNodeType.Element
If ObjReadXML.Name = "field" Then
While ObjReadXML.MoveToNextAttribute
If (ObjReadXML.Name = "id" And ObjReadXML.Value
= BitReq And BitReq <> "63") Then
GetCampoXML =
ObjReadXML.ReadElementString()
ObjReadXML.Close()
End If
End While
ElseIf ObjReadXML.Name = "subcampo" Then
While ObjReadXML.MoveToNextAttribute
If (ObjReadXML.Name = "id" And ObjReadXML.Value
= Bit63SubCampo) Then
GetCampoXML =
ObjReadXML.ReadElementString()
ObjReadXML.Close()
End If
End While
End If
'Case XmlNodeType.Text
' MsgBox("XmlNodeType.Text | ObjReadXML.Value: " &
ObjReadXML.Value)
End Select
End While
ObjReadXML = Nothing
End Function
End Class

Prueba este convertidos, esta muy bien.
http://www.developerfusion.co.uk/ut...sharp.aspx



"RADM" escribió en el mensaje
news:

Amigos necesito pasar esto a codigo c# alguin sabe como
??

Imports System.Xml
Imports System.IO
Public Class CXML
Function GetCampoXML(ByVal Archivo As String, ByVal BitReq As String,
Optional ByVal Bit63SubCampo As String = "XX") As String
Dim ObjReadXML As New XmlTextReader(New StringReader(Archivo))
'Leer desde un string
'Dim ObjReadXML As New XmlTextReader(Archivo) 'Leer desde un
archivo
GetCampoXML = ""
While ObjReadXML.Read()
Select Case ObjReadXML.NodeType
Case XmlNodeType.Element
If ObjReadXML.Name = "field" Then
While ObjReadXML.MoveToNextAttribute
If (ObjReadXML.Name = "id" And ObjReadXML.Value
= BitReq And BitReq <> "63") Then
GetCampoXML =
ObjReadXML.ReadElementString()
ObjReadXML.Close()
End If
End While
ElseIf ObjReadXML.Name = "subcampo" Then
While ObjReadXML.MoveToNextAttribute
If (ObjReadXML.Name = "id" And ObjReadXML.Value
= Bit63SubCampo) Then
GetCampoXML =
ObjReadXML.ReadElementString()
ObjReadXML.Close()
End If
End While
End If
'Case XmlNodeType.Text
' MsgBox("XmlNodeType.Text | ObjReadXML.Value: " &
ObjReadXML.Value)
End Select
End While
ObjReadXML = Nothing
End Function
End Class