¦p¦ó¶×¤J¦hÓ²M³æ½s¸¹ªº¤å¦rÀÉ
- ©«¤l
- 140
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 193
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-3-28
- ³Ì«áµn¿ý
- 2015-7-5
|
¦p¦ó¶×¤J¦hÓ²M³æ½s¸¹ªº¤å¦rÀÉ
¦U¦ì¤j¤j
¤p§Ì·Q±N¦hÓ²M³æ½s¸¹ªº¸Ó¤å¦rÀɶפJsheet1ªí,
¨Ì·Ó¤÷¶µ½s¸¹©M¤÷¶µ¦WºÙ¥ý§@¤ÀÃþ«á,
µM«á«ö"¶µ¦¸","¤l¶µ«~¸¹","«~¦W","¨Ï¥Î¶q","³æ¦ì"©M"³Æµù",
¤À§O¨ú¥X¤º®e©M«·s½s¸¹ÂনÄæ¦ì¦psheet2ªíA:HÄæ©Ò¥Ü
·Ð½Ð¥ý¶i ¤j¤j«ü¾É
TEST12.rar (28.04 KB)
|
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 257
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ 1# luke - Sub Ex()
- Dim fs$, Mystr$, A(0 To 7), Ay()
- Set d = CreateObject("Scripting.Dictionary")
- fs = Replace(ThisWorkbook.FullName, ".xls", ".csv")
- Open fs For Input As #1
- Do Until EOF(1)
- Line Input #1, Mystr
- If InStr(Mystr, "¤÷¶µ½s¸¹") > 0 Then
- fa = Split(Mystr, ":")
- f1 = Trim(Replace(fa(1), "¤÷¶µ¦WºÙ", "")): f2 = Trim(fa(2))
- End If
- Mystr = Trim(Mystr)
- If Val(Mystr) <> 0 Then
- m = Trim(Right(Mystr, 3)) '³æ¦ì
- Mystr = Trim(Replace(Mystr, m, ""))
- k = Len(Mystr)
- Do Until Mid(Mystr, k, 1) = " "
- k = k - 1
- Loop
- n = Mid(Mystr, k) '¼Æ¶q
- Mystr = Trim(Left(Mystr, k))
- Mystr = Trim(Mid(Mystr, Len(Split(Mystr, " ")(0)) + 1))
- i = 1
- Do Until Mid(Mystr, i, 1) = " "
- i = i + 1
- Loop
- p = Trim(Left(Mystr, i)) '¤l¶µ¸¹
- w = Trim(Replace(Mystr, p, "")) '«~¦W
- d(f2) = d(f2) + 1
- ReDim Preserve Ay(x)
- Ay(x) = Array(f1, f2, d(f2), p, w, n, m)
- x = x + 1
- End If
- Loop
- Sheet3.[A7].Resize(x, 7).Value = Application.Transpose(Application.Transpose(Ay))
- Close #1
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 140
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 193
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-3-28
- ³Ì«áµn¿ý
- 2015-7-5
|
¥»©«³Ì«á¥Ñ luke ©ó 2012-4-21 15:25 ½s¿è
¦^´_ 2# Hsieh
ÁÂÁÂH¤j
²Ä35¦CÀ³¬°Sheet2.[A7]
1.Y¤å¦rÀɱo¥DÀɦW(TEST12.csv)»PExcelÀÉ(TEST12.xls)¤£¦P¦WºÙ®É§Y¤å¦rÀɱo¥DÀɦW ¬°¤£¦P¦WºÙ, À³¦p¦óקïµ{¦¡?
2.Y¤å¦rÀɬO txtÀÉ¥B±Æ¦C®æ¦¡¤º®e¤£¦P¬O§_¯àª½±µ¥´¶}ÀÉ®×
¦A¶×¤J¤£»Ý¸g¹Lsheet1ªíÂà¶K¦Üsheet2ªí, §Yª½±µ¶}±ÒÀÉ®×¾ã²z«á©ñ¤Jsheet1ªí
(PS: ì©l¤å¦rÀɬOtxtÀÉ, §Q¥Î¶}±ÒÀɮצA¸g¹LÂà¦s¦¨csvÀÉ)
·Ð½Ð¥ý¶i ¤j¤j«ü¾É |
|
|
|
|
|
|
- ©«¤l
- 140
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 193
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-3-28
- ³Ì«áµn¿ý
- 2015-7-5
|
¦^´_ 4# Hsieh
ÁÂÁÂH¤j
ìµ{¦¡§ï¦¨
fs = Application.GetOpenFilename("Text Files (*.txt), *.txt")
ÂI¿ï¤å¦rÀÉ
§ï¿ïìTEST12.txt¤å¦rÀÉ
·|¥X²{"Àɮפw¶}±Ò"¿ù»~
·Ð½Ð¥ý¶i ¤j¤j«ü¾É
TEST12A.rar (23.91 KB)
|
|
|
|
|
|
|