VB¶ÁÈ¡TXTÎÊÌ⣬Çë¸ßÊÖÖ¸µã
˼·£ºwinsock½ÓÊÕµ½ÃüÁîºó£¬ÔÚCMDÏÂÖ´ÐÐÃüÁÃüÁî½á¹û±£´æÔÚ1.TXTÎļþÀȻºóÖðÐжÁÈ¡ÄÚÈÝÓÃwinsock°ÑÖ´Ðнá¹û·¢ËÍ»ØÀ´¡£Ë¼Â·ÊÇÕâÑùµÄ£¬Çë´ó¼ÒÏÈ¿´¿´´úÂ룺
Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim datas As String, pdi
Dim hpro, tet As String
Wk.GetData datas
On Error Resume Next
pdi = Shell("cmd.exe /c " & datas & ">>c:\1.txt", vbHide)
here:
hpro = OpenProcess(PROCESS_ALL_ACCESS, False, pdi) 'ÅжÏshellµ÷Óà ÊÇ·ñÍê³É¡£
If hpro <> 0 Then
MsgBox "ÔËÐе½ÎÒÁË"
GoTo here
Else
'¶ÁÈ¡1.txtÄÚµÄÄÚÈÝ
Open "c:\1.txt" For Input As #2
Do While Not EOF(2)¡¯-------------------------------±ê¼Ç¿ªÊ¼´¦
Line Input #2, tet
Wk.SendData tet & Chr(13)
Loop¡¯------------------------------------------------±ê¼Ç½áÊø
Close #2
Kill "c:\1.txt"
End If
End Sub
ÎÊÌ⣺ ΪʲôÔÚÉÏÃæ´úÂë±ê¼ÇµÄµØ·½»á³öÏÖËÀÑ»·£¿¶øÇÒ·¢Ë͵ÄÊý¾ÝÈ«ÊÇ¿Õ¸ñ£¨½ÓÊն˽ÓÊÕµ½µÄÊý¾ÝÈ«ÊÇ¿Õ¸ñ£© ÊÇʲôÔÒò°¡£¿Çë¸ßÊÖ°ï°ïæ°¡¡£
Line Input #2, tet Ç°¼Ódoevents
Wk.SendData tet & Chr(13) & Chr(10)
ÄãÕâ¸ö˳Ðòû¸ãÃ÷°×°É
Ó¦¸ÃÔÚWk_DataArrivalÀïÃæÆô¶¯¸öTimer
ÔÚTimerµÈ´ýÊý¾Ý½ÓÊÕÍê±Ï
ÔÙдµ½Text
È»ºóÔÙ·¢ËÍ
ÒòΪ·¢ËͺͽÓÊÕ¶¼ÊÇÐèҪʱ¼äµÄ£¬²»ÊÇ˲¼äÍê³ÉµÄ
Â¥ÉϵÄÅóÓ
Ïà¹ØÎÊ´ð£º
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
Éæ¼°µ½Ëã·¨£¬goog ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......