¹ØÓÚÓÃvb´¦ÀítxtµÄÎÊÌâ
ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
0023939608011»Æ¸ùÑø 1000 0100100 E
0025069060011»ÆÕñÔ« 4440 0100200 Y
0038270387011ÕÔÈÙÐÂ 1680 0100300 Y
0024431448011»Æ¹ÛÅó 360 0100400 Y
0023759723011Àî¹ØÕ× 600 0100500 Y
ÎÒÏëÏȰÑtxtÎļþ´¦Àí³ÉÿÁÐÓÃÒ»¸ö¿Õ¸ñ·Ö¿ª£¬·½±ãµ¼ÈësqlÊý¾Ý¿â£¬±¾À´ÏëÓà Mid º¯Êý´¦Àí£¬µ«ÊÇÎÒ²»ÄÜÈ·¶¨ËÍÀ´µÄtxtÎļþ¸ñʽһÑù£¬ÓÈÆäÊÇÿÁÐÖ®¼äµÄ¿Õ¸ñÊý£¬Èç¹û²»Í¬¾Í»á³öÎÊÌâÁË¡£
Çë½Ìϸ÷λÎÒÓ¦¸ÃÓÃʲô·½·¨¿ÉÒÔ´¦Àí£¬Âé·³´ó¼Ò°ÑÀý×Ó´úÂëҲдÏ£¬ÎÒvb±È½Ï²ËµÄ£¬ºÇºÇ
do while(instr(s," ")>0)
s=replace(s," "," ")
loop
ÓÃÕýÔòÓ¦¸Ã·½±ãµã£
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ ......
C# code:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
......
Private Sub cmdModify_Click()
Dim iRet As Integer
If dltUser.Text = "" Then
MsgBox "ÇëÑ¡ÔñÒªÐ޸ĵÄÓû§£¡", vbOKOnly ......
VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ïæ£»
Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£
ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......