ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð°Ý¦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)

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-3-21 22:35 ½s¿è

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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 ¤ºªº­È

TOP

¦^´_ 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)

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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




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

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

TOP

¦^´_ 6# a703130

    ¤£À´©Ò¿×®æ¦¡·|¶]±¼¬O¬Æ»ò·N«ä
§Ú¸Õ¤F¨S³o±¡§Î
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# Hsieh

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

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

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD