- ©«¤l
- 21
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 52
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2015-3-13
- ³Ì«áµn¿ý
- 2024-5-2
|
±z¦n!
´£¨Ñ¤§«e§Ú¦³¼g¹LÃþ¦ütxtÀɪºÂ^¨ú¤è¦¡«ÂI(§Ú¤§«e¬OÂ^¨úCSV. ,¦ý¬O¤èªk¬O¤@¼Ëªº)
Step1. ½T»{¸ô®|(Ãþ¦ü¼gªk¦p¤U)
ppath = "M:\QC\ÀËÅç¸ê®Æ\Wafer\OQC¯S©Ê\" + doc + "\"
myfile = Dir(ppath + "*.CSV")
<½T»{¸ô®|¨Ã·j´M©Ò¦³¸Ó¸ê®Æ§¨¤º¤§csvÀÉ>
Step2. ¥´¶}ÀɮרñN¤§¼g¤J#1¼È¦s
If myfile = "" Then GoTo labexit '·j´M¤£¨ì¸õ¥X«·j
gfilename = ppath + myfile
Open gfilename For Input As #1
Step3. ½T»{·j´M±ø¥ó
If Mid(textline, 1, 3) = "TTV" Then 'TTV data
search = ","
search1 = InStr(7, textline, search, vbTextCompare)
search2 = InStr(search1 + 1, textline, search, vbTextCompare)
search3 = InStr(search2 + 1, textline, search, vbTextCompare)
<§Ú¬O¨Ï¥Î¦r¦ê·j´M¨ì§Ún¸ê®Æªº¦ì¸m>
Step4. ³Ì«á·íµM¬O³]¥ßÓ°j°é§â¦Û¤v·Qnªº¸ê®Æ³£§ìªñ¨ÓÂP
Do While Not EOF(1)
Line Input #1, textline
loop
¥H¤W¬O§ÚªºÂ^¨ú¤è¦¡,¤£ª¾¹D¦³¨S¦³¦^µª¨ì«ÂI@@Y¦³°ÝÃD¥i¥H¤@°_°Q½×ò |
|