作者sdwufei (玉鼎)
看板Visual_Basic
标题[VB6 ] 请教字串补足有没有更好的写法
时间Tue Jun 23 15:26:28 2009
写了一小段程式，目的为使输入的字串达到一个英文字加五个数字。
例如说我如果输入R1，他就要按照规则变成R00001，如果输入D112，
就要变成D00112。如果输入W1234，则变成W01234，如果是D12345则
维持不变。
以下是我的写法(我输入的位置在Listbox里)：
If Len(List1.List(i)) < 6 Then
For k = Len(List1.List(i)) To 5
int1 = Left(List1.List(i), 1)
intr = Len(List1.List(i)) - 1
List1.List(i) = int1 + "0" + Right(List1.List(i), intr)
Next k
End If
想请益有没有更好的方式呢？总觉得我的方法好像笨笨的。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.169.192.201
※ 编辑: sdwufei 来自: 118.169.192.201 (06/23 15:46)
1F：推 ClubT:假设输入的东西存在str变数 06/23 16:49
2F：→ ClubT:str = Left(str, 1) + Format(Mid(str, 2), "00000") 06/23 16:49
3F：→ ClubT:把结果传回str 06/23 16:50
4F：→ sdwufei:感谢，没注意到这个指令，真方便XD 06/23 17:39