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

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

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

¥»©«³Ì«á¥Ñ cmo140497 ©ó 2011-8-1 17:30 ½s¿è

Dear ª©¥D
¤p§Ì§Q¥ÎExcel VBA¶}±ÒŪ¤J¤å¦rÀÉ«á,±ý¨ú±o¤å¦rÀɤºªºDefectList³o­Ó¦WºÙ«á,¸õ¤U¤@¦æ¨ú±o¼Æ¾Ú,¤£ª¾¦p¦ó­×½s³o­Óµ{¦¡,·PÁÂ!

20110729Test.zip (536 Bytes)
Get KLARF_20110729.zip (5.81 KB)

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

TOP

¦^´_ 2# GBKEE


Dear ª©¥D :
¤£¦n·N«ä,¤p§Ì·Q­n¨ú±o.txtÀɤº®e¤§DefectList¤U¤@¦æ¼Æ¾Ú¸ê®Æ,¤p§Ì¸Õ¹Lskipline,¤]¤£¦æ,ÁÂÁÂ!

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

¦^´_ 4# GBKEE


    ·PÁª©¥D,­ì¨ÓinputÁÙ¥i¥H¦b°j°é¤º¦A¨Ï¥Î¤@¦¸,¤p§Ì¹ê¦b¨S¤°»òÅÞ¿èÆ[©À,·PÁª©¥D!

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD