mnbskysb
级别: 火花会员
编号: 97145
精华: 0
发帖: 72
威望: 0 点
配偶: 单身
火 花 币: 13166 HHB
注册时间:2009-02-27
最后登陆:2015-08-04
|
动画导入导出指针小工具(2次更新..)
data2 查的眼花 写了个小程序 VB的
高手请华丽的飘过....
就两个按钮一个TEXT PictureBox
短短小程序 话了2个小时(不准BS我,我已经叫你飘过了)
又加了一个小时...
。。。逻辑思维太差 查了老半天
Private Sub Command1_Click()
Dim a, p, d As String
Dim b() As String
Dim m() As Integer
Dim l, n, x, y As Integer
n = 0
x = 0
y = 0
a = Text1.Text
l = Len(a)
ReDim b(0 To l) As String
ReDim m(0 To l) As Integer
For i = 8 To l Step 8
p = Mid(a, i - 1, 2)
If p = "08" Then
d = Mid(a, i - 7, 8)
If n = 0 Then
b(n) = d
m(n) = 1
n = n + 1
m(n) = 1
Else
For o = 0 To n
If d = b(o) Then
m(o) = m(o) + 1
Exit For
Else
x = x + 1
End If
Next o
If x = (n + 1) Then
b(n) = d
n = n + 1
m(n + 1) = 1
End If
x = 0
End If
End If
Next i
Text2.Text=""
For z = 0 To n
Picture1.Print b(z), m(z)
Text2.Text = Text2.Text + b(z)
Next z
End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Command3_Click()
Dim a, c, e, f, g As String
Dim b() As String
Dim m() As Integer
Dim l, n, x, y As Integer
n = 0
x = 0
y = 0
a = Text2.Text
a = Replace(a, " ", "")
l = Len(a)
ReDim b(0 To l) As String
ReDim m(0 To l) As Integer
For i = 8 To l Step 8
e = Mid(a, i - 3, 2)
f = Mid(a, i - 5, 2)
g = Mid(a, i - 7, 2)
b(n) = e + f + g + " "
n = n + 1
Next i
For i = 0 To n
Picture1.Print b(n)
c = c & b(i)
Picture1.Print c
Next i
Text3.Text = c
End Sub
Private Sub Command4_Click()
Dim a, c, e, f, g As String
Dim b() As String
Dim m() As Integer
Dim l, n, x, y As Integer
n = 0
x = 0
y = 0
a = Text3.Text
a = Replace(a, " ", "")
l = Len(a)
ReDim b(0 To l) As String
ReDim m(0 To l) As Integer
For i = 6 To l Step 6
e = Mid(a, i - 1, 2)
f = Mid(a, i - 3, 2)
g = Mid(a, i - 5, 2)
b(n) = e + f + g + "08" + " "
n = n + 1
Next i
For i = 0 To n
Picture1.Print b(n)
c = c & b(i)
Picture1.Print c
Next i
Text2.Text = c
End Sub
Private Sub Command5_Click()
Dim a, c, e, f, g As String
Dim b() As String
Dim m() As Integer
Dim l, n, x, y As Integer
n = 0
x = 0
y = 0
a = Text4.Text
a = Replace(a, " ", "")
l = Len(a)
ReDim b(0 To l) As String
ReDim m(0 To l) As Integer
For i = 8 To l Step 8
e = Mid(a, i - 3, 2)
f = Mid(a, i - 5, 2)
g = Mid(a, i - 7, 2)
b(n) = "1" + e + f + g + " "
n = n + 1
Next i
For i = 0 To n
Picture1.Print b(n)
c = c & b(i)
Picture1.Print c
Next i
Text5.Text = c
End Sub
Private Sub Command6_Click()
Dim a, c, e, f, g As String
Dim b() As String
Dim m() As Integer
Dim l, n, x, y As Integer
n = 0
x = 0
y = 0
a = Text5.Text
a = Replace(a, " ", "")
l = Len(a)
ReDim b(0 To l) As String
ReDim m(0 To l) As Integer
For i = 7 To l Step 7
e = Mid(a, i - 1, 2)
f = Mid(a, i - 3, 2)
g = Mid(a, i - 5, 2)
b(n) = e + f + g + "09" + " "
n = n + 1
Next i
For i = 0 To n
Picture1.Print b(n)
c = c & b(i)
Picture1.Print c
Next i
Text4.Text = c
End Sub
[ 此贴被mnbskysb在2009-03-02 12:16重新编辑 ]
|
|
|
|
[楼 主]
|
Posted:2009-02-28 13:31| |
顶端
| |
火花天龙剑 -> 火炎之纹章 -> 火花学园 -> 动画导入导出指针小工具(2次更新..)
