| ²é¿´: 490 | »Ø¸´: 1 | ||
RwingRWINGгæ (³õÈëÎÄ̳)
|
[ÇóÖú]
°ÑÒ»¸ötxtµÄÊý¾Ý¶Áµ½ÁíÒ»¸ötxt ÒÑÓÐ1È˲ÎÓë
|
|
Dim b, S As String Open "C:\Users\lenovo\Desktop\н¨Îļþ¼Ð\out.txt" For Input As #2 Do Until EOF(2) Line Input #2, b S = S + b If b <> "" And Not EOF(2) Then Line Input #2, b Exit Do End If Loop Close #2 CommonDialog1.Filter = "text(*.txt)|*.txt" CommonDialog1.DialogTitle = "Áí´æÎª" CommonDialog1.Flags = cdlOFNLongNames Or cdlOFNOverwritePrompt Or cdlOFNPathMustExist On Error GoTo errhandler CommonDialog1.Action = 2 'p$ = CommonDialog1.InitDir f$ = CommonDialog1.FileName 'pf$ = p$ & f$ If f$ <> "" Then Open f$ For Output As #3 Write #3, S Close #3 End If errhandler: Exit Sub txtÖеÄÊý¾ÝÊǹæÔòµÄ 410.26 58.78481 .5103359 410.2809 133.5603 .2246176 410.2665 52.92071 .5668858 410.1949 20.91697 1.434242 ÄÄÀïÓдíÎó°¡£¬ÎªÊ²Ã´Ö»ÄܶÁµ½µÚÒ»Ðа¡ |
» ²ÂÄãϲ»¶
ѹ¹ú¼ÒÒ»ÇøÏߣ¬Çóµ¼Ê¦ÊÕÁô£¬Óж÷±ØÐ»£¡
ÒѾÓÐ7È˻ظ´
081200-11408-276ѧ˶Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
22408 359·Öµ÷¼Á
ÒѾÓÐ4È˻ظ´
±¾¿ÆÐÂÄÜÔ´¿ÆÑ§Ó빤³Ì£¬Ò»Ö¾Ô¸»ªÀíÄܶ¯285Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
Ò»Ö¾Ô¸»ª±±µçÁ¦´óѧÄܶ¯×¨Ë¶£¬293£¬Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
µ÷¼Á310
ÒѾÓÐ7È˻ظ´
ʳƷ¹¤³Ìר˶һ־ԸÖк£Ñó309Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
275Çóµ÷¼Á
ÒѾÓÐ14È˻ظ´
283Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
085602 »¯¹¤×¨Ë¶ 338·Ö Çóµ÷¼Á
ÒѾÓÐ12È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
ÈçºÎ°ÑtxtÊý¾Ý¼ÓÈëµ½jadeÈí¼þÖÐ
ÒѾÓÐ5È˻ظ´
ÈçºÎ½«¶à¸ötxtÖÐÏàͬµÄÒ»ÐÐÌáÈ¡µ½Ò»¸öеÄtxtÎĵµÖУ¿
ÒѾÓÐ9È˻ظ´
matlabÊý¾ÝÊä³öµ½txt
ÒѾÓÐ6È˻ظ´
½øÐзÇÎÈ̬¼ÆËãʱ£¬UDFÔõÑùÊä³öÊý¾Ýµ½txtÎļþ
ÒѾÓÐ5È˻ظ´
ÈçºÎ½«txtÎļþ×÷Ϊ³õÊ¼ÔØºÉÎļþÊ©¼Óµ½Ä£ÐÍÉÏ
ÒѾÓÐ6È˻ظ´
¹ØÓÚmatlabÊý¾ÝдÈëtxtÎļþµÄÇóÖú£¨Éϴη¢ÔÚ¼ÆËãÄ£Äâ°æ£¬ºÃÏñ·¢µÄ°æ²»¶Ô£¬ÖØ·¢£©
ÒѾÓÐ5È˻ظ´
Matlab¶ÁÈ¡¶à¸öÎļþÖÐijһÁеÄ×î´óֵȻºóÊä³öµ½Ò»¸ötxtÖÐ
ÒѾÓÐ8È˻ظ´
ansys½á¹ûÊý¾Ýµ¼³öΪtxtÎļþ£¬Îļþ´óСÓÐÏÞÖÆÂð
ÒѾÓÐ8È˻ظ´
ÔõôÓÃudf¶ÁÈ¡dat»òtxtÎļþµÄÊý¾Ý
ÒѾÓÐ9È˻ظ´
ÇótxtÖÐÊý¾ÝÖØÐÂÅÅÐòµÄfortran´úÂë
ÒѾÓÐ5È˻ظ´
VC¶ÁдTXTÖеÄÊý¾Ý
ÒѾÓÐ22È˻ظ´
ÈçºÎÓÃÒ»¸öÅú´¦Àí³ÌÐò´¦Àí¶à¸ötxtÎļþ£¿
ÒѾÓÐ9È˻ظ´
200¶à¸ötxtÎļþmatlab¶ÁÈ¡ÎÊÌâ
ÒѾÓÐ18È˻ظ´
matlab txtÎļþÊý¾ÝÌáȡת»»
ÒѾÓÐ10È˻ظ´
ÈçºÎ±àдUDFÀ´¶ÁÈ¡txt¸ñʽµÄÒ»×éÊý¾Ý£¿
ÒѾÓÐ11È˻ظ´
Ôõô°ÑC++´¦ÀíµÄÊý¾Ý½á¹ûת»¯µ½Îı¾txtÖУ¿
ÒѾÓÐ5È˻ظ´
AUTOLAB²Ù×÷txtÎļþ
ÒѾÓÐ8È˻ظ´
ÈçºÎÓÃmatlab¶ÁÈë´ø¶ººÅµÄtxtÎļþ£¬ÎļþÖк¬×Öĸ
ÒѾÓÐ6È˻ظ´
ÔõôʵÏÖtxtÎļþÖеÄÁÐÊýת»»
ÒѾÓÐ14È˻ظ´
¶ÁÈ¡¶à¸ötxtÎļþ
ÒѾÓÐ18È˻ظ´
ÈçºÎÓÃmatlab´¦ÀítxtÎļþÀïµÄÊý¾Ý
ÒѾÓÐ7È˻ظ´
jjdg
°æÖ÷ (ÖªÃû×÷¼Ò)
- ³ÌÐòÇ¿Ìû: 9
- Ó¦Öú: 223 (´óѧÉú)
- ¹ó±ö: 3.926
- ½ð±Ò: 51005.2
- ºì»¨: 238
- Ìû×Ó: 7227
- ÔÚÏß: 474.2Сʱ
- ³æºÅ: 27000
- ×¢²á: 2003-10-21
- רҵ: Ò©Îï´úлÓëÒ©ÎﶯÁ¦Ñ§
- ¹ÜϽ: ³ÌÐòÓïÑÔ
¡¾´ð°¸¡¿Ó¦Öú»ØÌû
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
|
Private Sub Command1_Click() Dim b, S As String Open "C:\out.txt" For Input As #2 S = "" Do Until EOF(2) Line Input #2, b S = S & b & Chr(13) & Chr(10) Loop Close #2 CommonDialog1.Filter = "text(*.txt)|*.txt" CommonDialog1.DialogTitle = "Áí´æÎª" CommonDialog1.Flags = cdlOFNLongNames Or cdlOFNOverwritePrompt Or cdlOFNPathMustExist On Error GoTo errhandler CommonDialog1.Action = 2 'p$ = CommonDialog1.InitDir f$ = CommonDialog1.FileName 'pf$ = p$ & f$ If f$ <> "" Then Open f$ For Output As #3 Write #3, S Close #3 End If errhandler: Exit Sub End Sub |

2Â¥2015-06-07 02:25:38














»Ø¸´´ËÂ¥