°ª¤âÌÀ°À° regexp ¨D±Ð §ä¯S©w¼Æ¶qªº¼Æ¦r
- ©«¤l
- 1425
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1449
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-4-16
|
¦^´_ 1# adrian_9832
ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾Ç½m²ß¦r¨åªº¸Ñ¨M¤è®×,½Ð«e½ú°Ñ¦Ò
[A1]="asd1234567890,f0987654321,c3567890,d2456789012,0.34567890132,-0.2547896543,S234,000,F25533.000,G33366666,000000"
Option Explicit
Private Function format_dn(ByVal DN As String) As String
Dim T$, N&, Y, i
Set Y = CreateObject("Scripting.Dictionary")
For i = 1 To Len(DN) - 5
T = Mid(DN, i, 8): N = Val(T): T = N
If T Like "2#######" Or T Like "3#######" Then Y(T & "") = ""
T = Mid(T, 1, 6)
If T Like "2#####" Or T Like "3#####" Then Y(T & "") = ""
Next
If Y.Count = 0 Then
format_dn = ""
Else
format_dn = Join(Y.KEYS, vbCrLf)
End If
Set Y = Nothing
End Function |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|