Visual Basic - Equivalencias entre VB& y Clipper

Life is soft - evento anual de software empresarial
   
Vista:

Equivalencias entre VB& y Clipper

Publicado por Antonio (93 intervenciones) el 12/04/2009 10:51:48
Hola abro este post así, para no habrir uno para cada consulta.
En Clipper para si el primer caracter izquierdo es una de estas letras:
'"ABCDEFGHJKLMNPQRSUVW"

Utilizo:
IF Letra$"ABCDEFGHJKLMNPQRSUVW"

Si en VB6 utilizo:
IF Letra$"ABCDEFGHJKLMNPQRSUVW" Then
Me dice que en "ABCDEFGHJKLMNPQRSUVW", se esperaba Then o GoTo

Saludos cordiales.
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

RE:Equivalencias entre VB& y Clipper

Publicado por Antonio (93 intervenciones) el 12/04/2009 12:15:39
Si no hay nada similar, ¿podría utilizar el siguiente código?

Letra = UCase(Mid(VaCifNif, 1, 1))
Letras = "ABCDEFGHJKLMNPQRSUVW"
If SiLetra(Letra, Letras) Then

Public Function SiLetra(ByVal Cadena1 As String, ByVal Cadena2 As String) As Boolean
Dim n As Single: nPos As Integer
nPos = 1
For n = 1 To Len(Cadena2)
If UCase(Cadena1) = UCase(Mid(Cadena2, nPos, 1)) Then
SiLetra = True
Exit For
Else
nPos = nPos + 1
End If
Next
End Function
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

RE:Equivalencias entre VB& y Clipper

Publicado por P3L30N2009 (701 intervenciones) el 12/04/2009 13:32:56
La función no está mal (cumple con su cometido), pero la podrías abreviar un poco:

Public Function SiLetra(ByRef Cadena1 As String, ByRef Cadena2 As String) As Boolean
Dim iPos As Integer
iPos = InStr(1, Cadena1, Cadena2, vbTextCompare)
If iPos <> 0 Then SiLetra = True
End Function

Llamada a la función:
If SiLetra("ABCDEFGHJKLMNPQRSUVW", Left(Text1.Text, 1)) Then
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

RE:Equivalencias entre VB& y Clipper

Publicado por Antonio (93 intervenciones) el 12/04/2009 15:05:57
Gracias P3L30N2009.
Saludos cordiales.
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