[µo°Ý] ­×§ï¥t¦sªºÀɮפº®e¡A±N¨ä¤º®eÂл\¥ý«eªº¤º®e

a703130

½Ð°Ý¦U¦ì«e½ú­Ì

¤p§Ì²{¦b¦³­Ó°ÝÃD·Q½Ð±Ð

¦pªþ¥ó

¤p§Ì°µ¤@­Óªí®æ¡A «ö¤@­Ó¶s "Covert to INI" «K·|¶×¥X¤@­ÓiniÀÉ

²{¦b§Ú¦pªG­×§ïiniÀɸ̭±ªº¼Æ­È
½Ð°Ý§Ú­n¦p¦ó°µ¯à°÷¦bexcel ¤¤«ö¤U "Data In"¡A±N§Ú­ì¥»¶×¥X­×§ï¦nªº ini ¦A©ñ¶iExcel ¬Û¦P¦ì¸m©O??

EX.rar (15.76 KB)

¤U¸ü¦¸¼Æ: 9

2012-3-21 21:45

Hsieh

¦^´_ 1# a703130

§Aªº¥D­n¥\¯à¬O­nŪ¨úTest.iniÀɮפº®e¨ìTest¤u§@ªíªºA:CÄæ¶Ü?
ÁÙ¬O­n¼g¤J¤u§@ªíDATAªºEÄ檺­È?
¥H¼g¤JData¤u§@ªíEÄ欰¨Ò

1. Sub ghost()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. fs = ThisWorkbook.Path & "\Test.ini"
   
4. r = 1
   
5. Open fs For Input As #1
   
6. Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
   
7.     Line Input #1, TextLine    ' Ū¤J¤@¦æ¸ê®Æ¨Ã±N¤§«ü©wµ¹ÅܼơC
   
8.     ar = Split(TextLine, Chr(9)) ' ¼g¤J°}¦C¡C
   
9.     If ar(1) = "" Then
   
10.        mystr = ar(0)
    
11.        Else
    
12.        d(mystr & ar(0)) = ar(2)
    
13.     End If
    
14. Loop
    
15. Close #1    ' Ãö³¬ÀɮסC
    
16. With Sheets("Data")
    
17.    For Each a In .Range(.[D2], .[D2].End(xlDown))
    
18.        mystr = "[" & Application.Lookup("ùÕ", .Range(.[B2], a.Offset(, -2))) & "]"
    
19.        a.Offset(, 1) = d(mystr & a)
    
20.     Next
    
21. End With
    
22. End Sub

½Æ»s¥N½X

a703130

¦^´_ 2# Hsieh

¥D­n¬O¥H¶ñ¤JEÄ檺­È
¥Øªº¬O¦b©ó·í§Ú«ö¶s¶×¥Xini«á

§Ú¥i¥Hª½±µ­×§ïini¤ºªº­È

­×§ï§¹¤§«á ·í§Ú¶}±ÒExcel «ö¤U²Ä¤G­Ó«ö¶s

¥L«K·|±N­ì¥»Excel¤ºªºvalue ¹ï·Ó«e­±ªºName«á­×§ï¦¨ini ¤ºªº­È

a703130

¦^´_ 2# Hsieh

¤p§Ì«öµÛ®Ñ¤W©Ò±Ðªº¤è¦¡¶}ÀÉ
¤]³£¥i¥H­×§ï

¦ý¬O...§Ú¨Ó¦^«ö¤F´X¦¸«ö¶s¤§«á
§Úµo²{§Úini ªº­È¡A«e«á³£¦h¤F"

¤£ª¾¹D¬O¤°»ò°ÝÃD????

­ì¥»ªº ini

1. [Test1]               
   
2. A        =        100
   
3. B        =        200
   
4. C        =        300
   
5. D        =        400
   
6. E        =        500
   
7. F        =        600
   
8. A        =        100
   
9. B        =        200
   
10. C        =        300
    
11. D        =        400
    
12. E        =        500
    
13. F        =        600

½Æ»s¥N½X

Âà´«¤§«áªº ini

1. "[Test1]                ]"               
   
2. "A        "        =        "        100"
   
3. "B        "        =        "        200"
   
4. "C        "        =        "        300"
   
5. "D        "        =        "        400"
   
6. "E        "        =        "        500"
   
7. "F        "        =        "        600"
   
8. "A        "        =        "        100"
   
9. "B        "        =        "        200"
   
10. "C        "        =        "        300"
    
11. "D        "        =        "        400"
    
12. "E        "        =        "        500"
    
13. "F        "        =        "        600"

½Æ»s¥N½X

§ÚªºExcelÀÉ®×
EX.rar (18.56 KB)

¤U¸ü¦¸¼Æ: 7

2012-3-22 20:08

Hsieh

¦^´_ 4# a703130

1. Sub SaveToINI()                             '¥t¦s¬° ini ÀÉ
   
2. Open ThisWorkbook.Path & "\Test.ini" For Output As #1
   
3. With Sheet2
   
4. For Each a In .Range(.[A1], .[A65536].End(xlUp))
   
5.       mystr = Join(Application.Transpose(Application.Transpose(a.Resize(, 3).Value)), Chr(9))
   
6. Print #1, mystr
   
7. Next
   
8. End With
   
9. Close #1
   
10.     Sheets("Data").Select
    
11. End Sub

½Æ»s¥N½X

a703130

¦^´_  a703130
Hsieh µoªí©ó 2012-3-22 22:47

³o¤èªk¬O¥i¦æªº¡A¦ý¬O¨Ó¦^°µ­Ó´X¦¸¤§«á
ini Àɮ榡«K¶Ã¤F...

¥t¥~§Ú·Q½Ð°Ý¬O¬°¤°»ò·|³y¦¨³oºØ­ì¦]??

Hsieh

¦^´_ 6# a703130

    ¤£À´©Ò¿×®æ¦¡·|¶]±¼¬O¬Æ»ò·N«ä
§Ú¸Õ¤F¨S³o±¡§Î

¤U¸ü (331.21 KB)

2012-3-23 14:11

a703130

¦^´_ 7# Hsieh

©êºpH¤j~­«·s½T»{«á¬O¹ïªº
§Ú¥i¯à½Æ»s¿ùªF¦è

§Ú·Q½Ð°Ý~¬°¤°»ò§Úªº¼gªk·|³y¦¨
ÂàÀɮɦh¨â­Ó "" ??