如何提取长宽高

恐龙　发表于：2011-11-29 22:10:27 　

请问如何提取以下长宽高呢？谢谢

540x100x280mm 长540宽100高280

90x90x170mm 长90宽90高170

恐龙发表于：2011-11-29 22:31:20

Private Sub 尺寸_LostFocus()
Dim a, B As String
Me![长] = Left(Me![尺寸], InStr(Me![尺寸], "x") - 1)
a = Mid(Me![尺寸], 5)
Me![宽] = Left(a, InStr(a, "x") - 1)
B = Mid(Me![尺寸], 9)
Me![高] = Left(B, InStr(B, "mm") - 1)
End Sub

这个可以

540x100x280mm =长540宽100高280

这个不可以

90x90x170mm

请高手帮忙

Top

恐龙发表于：2011-11-29 22:46:00

点击下载此附件

Top

网行者发表于：2011-11-30 05:32:46

Private Sub 尺寸_AfterUpdate()
Me![长] = Left(Me![尺寸], InStr(Me![尺寸], "x") - 1)
Me![宽] = Mid(Me![尺寸], InStr(Me![尺寸], "x") + 1, InStrRev(Me![尺寸], "x") - InStr(Me![尺寸], "x") - 1)
Me![高] = Right(Me![尺寸], Len(Me![尺寸]) - InStrRev(Me![尺寸], "x"))
End Sub

Top

网行者发表于：2011-11-30 05:47:04

以上为不带"mm"单位输入，带"mm"单位输入，如下：

Private Sub 尺寸_AfterUpdate()
Me![长] = Left(Me![尺寸], InStr(Me![尺寸], "x") - 1)
Me![宽] = Mid(Me![尺寸], InStr(Me![尺寸], "x") + 1, InStrRev(Me![尺寸], "x") - InStr(Me![尺寸], "x") - 1)
Me![高] = Mid(Me![尺寸], InStrRev(Me![尺寸], "x") + 1, Len(Me![尺寸]) - InStrRev(Me![尺寸], "x") - 2)
End Sub

Top

恐龙发表于：2011-11-30 11:17:49

网行者，多谢晒

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

如何提取长宽高