|
|
Postada em 22/11/2004 02:40 hs
Galera eu tenho a seguinte expressão de 16 digitos. So que tenho que separar de 2 em 2 digitos ou seja text_total.text = 1234567890123456 Text1.text = 12 Text2.text = 34 Text3.text = 56 Text4.text = 78 Text5.text = 90 Text6.text = 12 Text7.text = 34 Text8.text = 56 Como que eu faço o codigo para esta separação? Valeu Galera |
|
|
|
|
|
Poca
|
SETE LAGOAS
MG - BRASIL
|
|
Postada em 22/11/2004 05:09 hs
Amigo isso aí resolve o teu problema... T+ text1.text = Mid(text_total.text,1,2) text2.text = Mid(text_total.text,3,2) text3.text = Mid(text_total.text,5,2) text4.text = Mid(text_total.text,7,2) text5.text = Mid(text_total.text,9,2) text6.text = Mid(text_total.text,11,2) text7.text = Mid(text_total.text,13,2) text8.text = Mid(text_total.text,15,2)
Imagine um sistema (.exe) que vc pode programar códigos fontes dentro dele, mesmo com ele estando em execução no momento e ainda trabalhando em rede! Ficou confuso ??? Não entendeu como isso é possível ??? Componente: Macro pra VB6 / Desenvolvido por Kraysler. O teu sistema fica com recursos parecido com o que a linguagem SAP oferece. OBS.: Linguagem SAP = R$ 80.000,00 , talvez seja por isso que vc não tenha ouvido falar nela. Baixe um aplicativo Demo do componente: http://www.macrovb.cjb.net
|
|
|
|
|
|
Postada em 22/11/2004 08:18 hs
Private Function MinhaSplit(Texto As String, Intervalo As Integer)
Dim MyArray()
ReDim MyArray(1 To Round(((Len(Texto) / Intervalo) + 0.49)))
For i = 1 To Round(((Len(Texto) / Intervalo) + 0.49))
If i = 1 Then
MyArray(i) = Mid(Texto, i, Intervalo)
Else
MyArray(i) = Mid(Texto, ((Intervalo * (i - 1)) + 1), Intervalo)
End If
Next
MinhaSplit = MyArray
End Function
Private Sub Command2_Click()
Dim teste()
teste = MinhaSplit("1234567890123456", 2)
For i = 1 To UBound(teste)
MsgBox teste(i)
Next
End Sub
|
|
|
|
|
