Skip to content

Instantly share code, notes, and snippets.

@ahrherrera
Created October 24, 2018 18:15
Show Gist options
  • Save ahrherrera/0e6ac1d6c61c3e248079fe15541d39c9 to your computer and use it in GitHub Desktop.
Save ahrherrera/0e6ac1d6c61c3e248079fe15541d39c9 to your computer and use it in GitHub Desktop.
Interpretar codigo fuente. Ver comentarios
ReDim Preserve arrayCodigos(1)
arrayCodigos(0) = "Codigos"
Set ElisaCnn = New Connection
ElisaCnn.Open "PROVIDER=MSDASQL;dsn=ELISA;uid=;pwd=datosElisaCNDR;"
Set rsElisa = New Recordset
rsElisa.Open "Select * from DatosProtocoloChik", ElisaCnn, adOpenDynamic, adLockOptimistic
For i = 0 To 95
If Not frmMain.txtProtocolo(i).Text Like "SINM*" Then
If Not InStr(Join(arrayCodigos), Left(frmMain.txtProtocolo(i).Text, Len(frmMain.txtProtocolo(i).Text) - 1)) > 0 Then
arrayCodigos(UBound(arrayCodigos)) = Left(frmMain.txtProtocolo(i).Text, Len(frmMain.txtProtocolo(i).Text) - 1)
ReDim Preserve arrayCodigos(UBound(arrayCodigos) + 1)
End If
End If
Next i
Dim NewSize As Integer
NewSize = UBound(arrayCodigos) - 2
ReDim Preserve arrayMedias(NewSize, 2)
For j = LBound(arrayCodigos) + 1 To UBound(arrayCodigos) - 1
@ahrherrera
Copy link
Author

Detalles:

A partir de la iteracion de la linea 9

@wmonterrey
Copy link

Esto es para guardar en Chik CDC. Como hay dos partes de la misma muestra, una con antígeno viral y otra con antígeno normal se tiene que tomar el resultado de cada una de ellas para el resultado de la muestra. Se declara un arreglo de strings llamado arrayCodigos sin tamaño definido donde se irán poniendo los códigos únicos que existen en la placa. En el "if" valida que el código no existe en el arreglo, si no existe lo agrega y redimensiona al tamaño actual mas uno. Luego recorre este arreglo para poder poner el resultado.

De todas formas ya consultamos con el CNDR y esta técnica es muy remoto que la vuelvan a usar, así que mi consejo es que no pierdas mucho tiempo en ella.

Saludos

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment