ÀûÓÃreplace º¯Êý ÔÚvbÖÐʵÏÖ Ïû³ý¿ÕÐÐ
ÕâÀïÊÇ ÀûÓÃreplace º¯Êý ÔÚvbÖÐʵÏÖ Ïû³ý¿ÕÐеÄÒ»¸ö³ÌÐò
ÕâÀïµÄÈÝÆ÷ÊÇrichtext
¿ÉÒÔÀ©³äµ½ÆäËûÈÝÆ÷ ºÍÆäËû×Ö·û ÓÃÓÚ±àд²éÕÒÌæ»»¹¦ÄÜ
'--------------------------------------------------------------------------------------------
' Ïû³ý¿ÕÐÐ , ÀûÓÃinstrº¯Êý, ËÑË÷Îı¾ÀïµÄvbcrlf(»Ø³µ + »»ÐÐ), Á½¸ö»Ø³µÌæ»»³ÉÒ»¸ö»Ø³µ¼Ó»»ÐÐ
'--------------------------------------------------------------------------------------------
Do While InStr(1, rtffile.Text, vbCrLf & vbCrLf)
rtffile = Replace(rtffile.Text, vbCrLf & vbCrLf, vbCrLf)
Loop
Ïà¹ØÎĵµ£º
1. ¸÷ÖÖ½øÖÆ×ª»»º¯Êý Ò»°ãµÄÊý¾Ý½øÖưüÀ¨Ê®½øÖÆ,¶þ½øÖÆ,Ê®Áù½øÖÆ.Ê®½øÖƾÍÊÇÎÒÃÇÈÕ³£Éú»îÓõ½µÄÊý¾Ý½øÖÆ,Òò´ËÒ²ÊÇÎÒÃÇ×îÊìϤºÍÇå³þµÄ;¶þ½øÖÆÊǼÆËã»úµÄ»ù´¡½øÖÆ,Ö÷ÒªÊÇÒòΪ±ãÓÚÓÃÎïÀíÆ÷¼þʵÏÖ¶þ½øÖÆ;°Ë½øÖƺÍÊ®Áù½øÖÆÒòΪºÍ¶þ½øÖƵÄÌìÈ»µÄÇ×ÃܹØÏµ,²¢ÇÒ±íʾ±È¶þ½øÖƸü·½±ã,
¡¡¡¡1.
¸÷ÖÖ½øÖÆ×ª»»º¯Êý
¡¡¡ ......
¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
м¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇ ......
Dim FirstFile As String
Dim SecondFile As String
Dim FinalFile As String
Dim first() As Byte
Dim second() As Byte
Dim file1size As Long, file2size As Long
Private Sub Command3_Click()
SecondFile = Text2.Text
FirstFile = Text1.Text
FinalFile = Text3.Text
Open FirstFile For Binary Access Rea ......
³ÌÐòЧ¹û£º
µ±µã»÷×ó±ßµÄ²¿¼þͼʱ£¬»áµ¯³ö¶Ô»°¿òÌáʾÄãµã»÷ÁËÄÄÒ»¸öÇøÓò¡£
³ÌÐò˼·£º
ÓÃÒ»¸öÍ¼Æ¬ÇøÓòÂëͼ×÷Ϊµã»÷ÇøÓòµÄ²ÎÕÕ£¬¸ù¾ÝXYÈ¡µÃµÄÑÕɫʶ±ð³öÊôÓÚÄÄÒ»¸öÇøÓò
³ÌÐò½çÃæÈçÏ£º
Ïà¹Ø´úÂëÈçÏ£º
Visual Basic Code
Dim ColorArray ( ) As Long
Dim ColorCount As Long
Private Sub Form_Load ( ......
Õ⼸ÌìÔÚÉè¼ÆÔĶÁÆäÖÐÓõ½Á˺ܶàºÃµÄ¼¼Êõ,,ÈÃÎÒÃÇÔÚÉè¼ÆÈí¼þµÄʱºò·½±ã,,¿ì½Ý,,ÃÀ¹Û.Ò²ÊÇÎÒÃǾ³£Óõ½µÄһЩ¿Ø¼þ.
ËùÒÔÔÚÕâÀïÎÒ»áÂ½Ðø°ÑËû·ÖÏí³öÀ´.
ÕâÀïÊÇÔÚ´°ÌåÖиı䴰ÌåµÄ´óС.´°ÌåÄÚ²¿ËùÒԿؼþµÄ´óСͬ±ÈÀýµÄ¸Ä±äµÄÒ»¸ö³ÌÐò
ÕâЩÊÇÔÚ±ê׼ģ¿éÖÐ
'¶¨Òå FormOldWidth, FormOldHeight Ϊȫ¾Ö±äÁ¿£¬ÕâÑùÆäËûÄ£¿é²ÅÄÜ ......