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

[¤À¨É] (¤w¸Ñ¨M)·PÁª©¥D¦p¦ó§Q¥ÎExcel VBA¶}±ÒŪ¤J¤å¦rÀÉ«á,«ü©w¦WºÙ¸õ¤U¤@¦æ¨ú±o¸ê®Æ

¦^´_ 1# cmo140497
If mystr Like test & "*" Then Print #2, mystr   §ï¬°    If InStr(mystr, test) = 0 Then Print #2, mystr

TOP

¦^´_ 3# cmo140497
  1. Do While Not EOF(1)
  2.        Input #1, mystr
  3.        If mystr Like test & "*" Then
  4.             Input #1, mystr   'Ū¨ú¤U¤@¦æ
  5.             Print #2, mystr
  6.        End If
  7.     Loop
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD