ASP.NET - Tengo un problema

 
Vista:

Tengo un problema

Publicado por Noreen (134 intervenciones) el 03/09/2004 21:39:13
Hola a quien pueda ayudar

tengo un problemita leyendo archivos.
Leo un archivo texto en cierto punto de un record tiene unos caracteres en forma de cuadritos(data corrupta) esa data la coloco en un string
pero despues de los cuadritos no lee nada

dim variable as string="122444444
como si no fuese string
Alguien puede ayudarme a descifrar eso
como eliminar esa data
si la leo en notepad aparece como si fueran espacios
en word pad veo el problema
gracias
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
sin imagen de perfil
Val: 56
Bronce
Ha mantenido su posición en ASP.NET (en relación al último mes)
Gráfica de ASP.NET

RE:Tengo un problema

Publicado por Yamil Bracho (1136 intervenciones) el 06/09/2004 03:13:42
Noreen, la solucion seria no leer como si fuera un String sino byte por byte, Creo que los cuadritos a los que te refieres es que quizas ese archivo lo crearon en Linux u otro sistema operativo. Casi siempre es el caraceter 13 o 10 (CR o LF). Si los lees byte por byte puedes revisar su codigo ASCII o UNICODE
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

Yamil

Publicado por Noreen (134 intervenciones) el 08/09/2004 22:34:28
Hola: tengo un problemita o problemon, cambie el texto a bytes, y los cuadritos aparecen como di fuesen blancos (20) los unicos que reconoce como cr/lf son los ultimos para comenzar una nueva linea
tengo esto

Function FindTabs(ByVal WhichField As String) As String
Dim intCounter As Integer
Dim strText As String
Dim intStart As Integer
intStart = 1
intCounter = 1
strText = WhichField
Dim i As Integer = 0
Do Until intCounter = 0
'For i = 1 To 255
intCounter = InStr(intStart, strText, Chr(10))
intStart = intCounter + 1
If intCounter > 0 Then
strText = RemoveTabs(intCounter, strText)
' Print(1, strText, vbCrLf)
End If
'Next

Loop

FindTabs = strText


End Function


Function RemoveTabs(ByVal intstart As Integer, ByVal strText As String) As String
Dim front As String, rear As String
front = Microsoft.VisualBasic.Left(strText, intstart - 1)
rear = Mid(strText, intstart + 1)
RemoveTabs = front & rear
End Function

Aqui es donde esta el problema, si el que tiene el cuadriot esta como primer record elimina los cuadritos, pero si esta despues no los reconoce como cuadritos, sabras alguna solucion?
Gracias anticipadAS.
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