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

[µo°Ý] °ÝÃD¤G.±qexcelª½±µÂà¥X¨ì C:\SP20101002.TXT Àɮפ¤¥h?

[µo°Ý] °ÝÃD¤G.±qexcelª½±µÂà¥X¨ì C:\SP20101002.TXT Àɮפ¤¥h?

¾Ç©f¤S¨Ó³Â·Ð¤j®a¤F

½Ð«Ó­ô/¬ü¤kª©¥D «Ó­ô/¬ü¤k¾Çªø¸ò¾Ç©j

À°¦£¾Ç©f§¹¦¨

ÁÂÁ¤F

SP20101002 ¬°Â¸ê®Æ
SP20101001 ¬°·s¸ê®Æ(Àɮפ¤¤£¦s¦b¤]¤£¥X²{ªº,¥Øªº¬O¹ï·Ó°Ñ¦Ò¥Îªº)

­ì¦³Â¸ê®Æ SP20101002.TXT (¤w¸g¦s¦b¤º®e)
¦pªGÂà¥Xªº¸ê®Æ,¸ê®Æ¨S¦³ªº­n¼W¥[,¦pªG¸ê®Æ¤w¸g¦³¤F´N¤£ºÞ¥¦
©¹¤U§PÂ_

§PÂ_¤èªk¬O³o¼Ëªº,¦Ò¼{²Ä¤@­ÓªÅ®æ¬°·Ç
¥u¦Ò¼{ªÅ®æ¥ª«e¬°°ò·Ç,ªÅ®æ«áªº¤º®e¤£²z¥¦

¤T­Ó¤p¨Ò¤l

·s¸ê®Æ

3A 12
A&M 5959
A50CHT 0703

ÂÂÀÉ®×
SP20101002.TXT

1. ¦³¤F 3A        0012 3A×ÊÔ´ ,¥u¦Ò¼{ 3A ¦³¤F¸õ¹L©¹¤U¤@®æ
2. ¦³¤F A&M        5959 A&MµØ²ú,¥u¦Ò¼{ A&W ¦³¤F¸õ¹L©¹¤U¤@®æ
3. ¥u¦³ A50CHTK-C1        0703C1 A50Öйú»ù½ð ¨S¦³ A50CHT , ©Ò¥H SP20101002.TXT ­n·s³oµ§

³Ì²×¥u¦³¤@­Ó SP20101002.TXT ·s¸ê®Æ·|¼W¥[,¸ê®Æ­ì«Ê¤£°Ê,­nÀx¦s½Æ»\­ìÀÉ®×

metrostar308.rar (55.74 KB)

¦^´_ 6# metrostar
   
  1. Sub zhz3230()
  2.     Dim D As Object, Tx As Object, i%, TestFile$, MyChar$, ch$
  3.     Dim Fs As Object, OldFile As String, SaveFile%
  4.     Set Fs = CreateObject("Scripting.FileSystemObject")
  5.     TestFile = ThisWorkbook.Path & "\SP20101002.txt"   '½Ð­×§ï¬°¥¿½TÀɮ׸ô®|
  6.     OldFile = ThisWorkbook.Path & "\OldTxt.txt"
  7.     Fs.Copyfile TestFile, OldFile                      '½Æ»s¨Ó·½ÀɼȦs
  8.     Set D = CreateObject("scripting.dictionary")
  9.     Open TestFile For Input As #1                      ' ¶}±ÒÀɮסC
  10.     Do While Not EOF(1)                                ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
  11.         Input #1, MyChar                               ' ±N¸ê®ÆŪ¤JÅܼƤ¤¡C
  12.         If InStr(MyChar, Chr(9)) Then ch = Chr(9) Else ch = Space(1)   '¨ú±o¸ÑªR¦r¤¸
  13.         D(Trim(Split(MyChar, ch)(0) & "")) = ""        '¨úªºÂ¸ê®Æ
  14.     Loop
  15.     Close #1                                           ' Ãö³¬ÀɮסC
  16.     Set Tx = Fs.OpenTextFile(TestFile, 8, -2)
  17.     With Sheets("Sheet1")
  18.      For i = 2 To .[a65536].End(3).Row
  19.       If D.exists(Trim(.Cells(i, 2))) = False Then      ' Sheet1ªºBÄæ ¤ñ¹ï¸ê®Æ
  20.          Tx.WriteLine .Cells(i, 2) & " " & .Cells(i, 1) '¼g¤JÀÉ®×
  21.       End If
  22.     Next
  23.     End With
  24.     Tx.Close                                              ' Ãö³¬ÀɮסC
  25.     Set Tx = Nothing
  26.     Set D = Nothing
  27.     'Âл\­ìÂÂÀɦW-> ­ì¨ÓÀɮצsÀÉ  ->¤£°Ê¥¦
  28.     '«Ø·sÀɦW    -> ­ì¨ÓÀɮפ£¦sÀÉ
  29.     If MsgBox("½T©w «Ø·sÀɦW??", vbQuestion + vbYesNo, "¥t¦s·sÀÉ") = vbYes Then
  30.             With Application.FileDialog(msoFileDialogOpen)
  31.                 .AllowMultiSelect = False
  32.                 .FilterIndex = 6
  33.                 If .Show = True Then
  34.                     Fs.Copyfile TestFile, .SelectedItems(1)                       '½Æ»s¨Ó·½ÀÉ
  35.                     Fs.Copyfile OldFile, TestFile                                 'ÁÙ­ì¨Ó·½ÀÉ  -> ­ì¨ÓÀɮפ£¦sÀÉ
  36.                 End If
  37.             End With
  38.     End If
  39.     Kill OldFile                '²M°£¨Ó·½¼È¦sÀÉ
  40. End Sub
½Æ»s¥N½X

TOP

¦^´_  metrostar
¥u¤ñ¹ïªÅ®æ¥ª«e¬°°ò·Ç, ©MSheet1ªºBÄæ¤ñ¹ï¶Ü?
CreateTextFile ¤èªk «Ø¥ß¤@­Ó«ü©wªºÀɦW ...
GBKEE µoªí©ó 2010-10-9 10:10



¼M ´Î·¥¤F
§¹¥þ¹F¨ì­C
¾Ç©f¯uªº«D±`·P°Ê©O
¤Ó·PÁ GBKEE «Ó­ôª©¥D(¦Ñ®v)±z¤F
±z¯u¬O¤Ó±j¤Ó¼F®`¤F
·PÁ±z¨Ã¯¬¶P±z
©¯ºÖ¦n¹B¥Ã»·­°Á{±z¨­¤W

¬Ý¨ì´N¤£·|¥[¤J
«D±`¶Ë¸£µ¬

¦pªG¼W¥[ ¶}±Ò¬Y¸ô®|ÀÉ®×

   With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "*.txt"
        .Show
        If .SelectedItems.Count > 0 Then
            fs = .SelectedItems(1)
        Else
            MsgBox "¨S¦³¿ï¨úÀÉ®× !!!"
            Exit Sub
        End If
    End With

³B²z«á

µ²§ô¬°¥X²{°T®§ ·QÂл\­ìÂÂÀɦW©O Y OR N ©Î¬O·Q«Ø·sÀɦW ¨º§ó´Î

TOP

¦^´_ 4# metrostar
¥u¤ñ¹ïªÅ®æ¥ª«e¬°°ò·Ç, ©MSheet1ªºBÄæ¤ñ¹ï¶Ü?
CreateTextFile ¤èªk «Ø¥ß¤@­Ó«ü©wªºÀɦW¨Ã¥B¶Ç¦^¤@­Ó¥Î©ó¸ÓÀÉ®×Ū¼gªº TextStream ª«¥ó¡C
OpenTextFile   ¤èªk ¶}±Ò¤@­Ó«ü©wªºÀɮרöǦ^¤@­Ó TextStream ª«¥ó¡A¸Óª«¥ó¥i¥Î©ó¹ïÀɮ׶i¦æŪ¨ú©Îªþ¥[¡C
  1. Option Explicit
  2. Sub zhz3230()
  3.     Dim D As Object, Tx As Object, i%, TestFile$, MyChar$, ch$
  4.     TestFile = ThisWorkbook.Path & "\SP20101002.txt"   '½Ð­×§ï¬°¥¿½TÀɮ׸ô®|
  5.     Set D = CreateObject("scripting.dictionary")
  6.     Open TestFile For Input As #1                      ' ¶}±ÒÀɮסC
  7.     Do While Not EOF(1)                                ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
  8.         Input #1, MyChar                               ' ±N¸ê®ÆŪ¤JÅܼƤ¤¡C
  9.         If InStr(MyChar, Chr(9)) Then ch = Chr(9) Else ch = Space(1)   '¨ú±o¸ÑªR¦r¤¸
  10.         D(Trim(Split(MyChar, ch)(0) & "")) = ""        '¨úªºÂ¸ê®Æ
  11.     Loop
  12.     Close #1                                           ' Ãö³¬ÀɮסC
  13.     Set Tx = CreateObject("scripting.FileSystemObject").OpenTextFile(TestFile, 8, -2)
  14.     With Sheets("Sheet1")
  15.      For i = 2 To .[a65536].End(3).Row
  16.       If D.exists(Trim(.Cells(i, 2))) = False Then      ' Sheet1ªºBÄæ ¤ñ¹ï¸ê®Æ
  17.          Tx.WriteLine .Cells(i, 2) & " " & .Cells(i, 1) '¼g¤JÀÉ®×
  18.       End If
  19.     Next
  20.     End With
  21.     Set Tx = Nothing
  22.     Set D = Nothing
  23. End Sub
½Æ»s¥N½X

TOP

­º¥ý¦hÁ«ӭôª©¥D¦^ÂÐ

¹ïªº´N¬O³o·N«ä
¥u¤ñ¹ïªÅ®æ¥ª«e¬°°ò·Ç,ªÅ®æ«áªº¤º®e¤£¤ñ¹ï

TOP

ÂÂÀÉ®× SP20101002.TXT
1. ¦³¤F 3A        0012 3A×ÊÔ´ ,¥u¦Ò¼{ 3A ¦³¤F¸õ¹L©¹¤U¤@®æ
2. ¦³¤F AM        5959 A&MµØ²ú,¥u¦Ò¼{ A&W ¦³¤F¸õ¹L©¹¤U¤@®æ
3. ¥u¦³ A50CHTK-C1        0703C1 A50Öйú»ù½ð ¨S¦³ A50CHT , ©Ò¥H SP20101002.TXT ­n·s³oµ§
metrostar µoªí©ó 2010-10-6 17:06

§A­nªº¬O metrostar308.xls ­n©M SP20101002.TXT ¤ñ¹ï¤§«á ¦³·sªº¸ê®Æ¥[¨ì SP20101002.TXT ¹ï¶Ü?
³o»¡©ú¬Ý¤£À´ ¤£ª¾­n¦p¦ó¤ñ¹ï

TOP

¾Ç©f°ÝÃDÁÙ¨S¦³¸Ñ¨M°Õ,´N¬O¿é¥X *.txt
A¦C¸òB¦C¹ï½Õ¥B­ì¦³¸òEXCELÀɤ£­n½Æ»\,¶È¼W¥[·s¤º®e

½Ð«Ó­ô/¬ü¤kª©¥D «Ó­ô/¬ü¤k¾Çªø¸ò¾Ç©j

À°¦£¾Ç©f§¹¦¨

ÁÂÁ¤F

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD