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

Excel 2010 Âà¸mtxtÀɨD§U

¦^´_ 11# kulisung
¬°¦ó¤£¤W¶Ç,¤å¦rÀÉ,Âà¸m«áªºexcel½d¨ÒÀÉ,¥i¥H¤@¥Ø¤FµM§Aªº°ÝÃD.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 14# kulisung
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Txt As String, Fs As Object, d, A(), Tile As String, S As String, Stile As String, i, ii As Integer
  4.     Txt = "d:\logfile.log" '¤å¦rÀɥؿý
  5.     Set Fs = CreateObject("Scripting.FileSystemObject").OpenTextFile(Txt, 1)
  6.     'OpenTextFile ¤èªk ¶}±Ò¤@­Ó«ü©wªºÀɮרöǦ^¤@­Ó TextStream ª«¥ó¡A¸Óª«¥ó¥i¥Î©ó¹ïÀÉ®×¶i¦æÅª¨ú©Îªþ¥[¡C
  7.     d = Split(Fs.readall, Chr(10))
  8.     Fs.Close                                                                    'Ãö³¬¤å¦rÀÉ
  9.     For i = 0 To UBound(d)
  10.         If InStr(d(i), "---") Then
  11.             If S <> "" Then
  12.                 If Len(Stile) > Len(Tile) Then Tile = Stile                     '½T©wøó¦ì¼ÐÀY
  13.                ReDim Preserve A(0 To ii)
  14.                A(ii) = S
  15.                ii = ii + 1
  16.             End If
  17.             Stile = ""                                                          '²M°£°O¿ýøó¦ìªº¼ÐÀY
  18.             S = ""                                                              '²M°£°O¿ý
  19.         ElseIf InStr(d(i), ":") Then
  20.             Stile = Stile & IIf(Stile <> "", "##", "") & Split(d(i), ":")(0)    '°O¿ýøó¦ìªº¼ÐÀY
  21.             S = S & IIf(S <> "", "##", "") & Trim(Replace(d(i), Mid(d(i), 1, InStr(d(i), ":")), ""))
  22.         ElseIf InStr(d(i), ":") = 0 Then
  23.             S = S & IIf(InStr(d(i - 1), ":"), "", Chr(10)) & Trim(d(i))
  24.         End If
  25.     Next
  26.     ReDim Preserve A(0 To ii)
  27.     A(ii) = S                                                                    '³Ì«á¤@µ§¸ê®Æ
  28.     If Len(Stile) > Len(Tile) Then Tile = Stile                                  '½T©wøó¦ì¼ÐÀY
  29.     With ActiveSheet
  30.         .Cells.Clear
  31.         .[A1].Resize(1, UBound(Split(Tile, "##")) + 1) = Split(Tile, "##")       '¶×¤Jøó¦ì¼ÐÀY
  32.         For Each i In A
  33.             .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(1, UBound(Split(i, "##")) + 1) = Split(i, "##")
  34.                                                                                   '¶×¤J¬ö¿ý¸ê®Æ
  35.         Next
  36.         .Columns.EntireColumn.AutoFit                                             '½Õ¾ãÄæ¼e
  37.     End With
  38. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD