  | 
				VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.   
				 | 
			 
		 
		 
	
		| 上一篇主題 :: 下一篇主題   | 
	 
	
	
		| 發表人 | 
		內容 | 
	 
	
		garfield Site Admin
  
  註冊時間: 2003-01-30 文章: 2160
 
  第 1 樓
  | 
		
			
				 發表於: 星期三 九月 01, 2004 12:23 am    文章主題: [原創]清除報表檔中的印表機資訊 | 
				     | 
			 
			
				
  | 
			 
			
				給VFP6,7用的, 可以指定目錄後,挑選欲清除的報表檔後, 清除報表檔中的印表機資訊. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		小桑•無痕
 
  
  註冊時間: 2003-07-08 文章: 304 來自: Tainan, Taiwan
  第 2 樓
  | 
		
			
				 發表於: 星期三 九月 01, 2004 3:27 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				我比較懶.....每次都處理所有的報表檔....
 
程式的作者有可能是
 
1.garfield
 
2.其他人
 
3.我
 
4.我改garfield的程式
 
5.我改其他人的程式
 
ㄏㄏ我忘了.....
 
   ---------------------------------------------------------
 
LOCAL	gnFNs,I,cDoCmd
 
CLEAR
 
gnFNs	=	ADIR(gaFNAME,'..\REPORTS\*.frx')
 
FOR		I	=	1	TO	gnFNs
 
		cDoCmd	=	"USE ..\REPORTS\" + gaFNAME[I,1] + " ALIAS PrATemp IN 0"
 
		&cDoCmd
 
		GOTO	TOP		IN		PrATemp
 
		REPL	EXPR	WITH	""	IN	PrATemp
 
		USE	IN	PrATemp
 
NEXT	I _________________ 用力 Try 一下...可以發現很多好玩的事.... | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		syntech
 
 
  註冊時間: 2003-05-16 文章: 4252 來自: Taipei,Taiwan
  第 3 樓
  | 
		
			
				 發表於: 星期三 九月 01, 2004 4:21 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				其實我也有一個..... _________________ 如果公司有下列困擾:
 
1. 找不到便宜,快速,簡易的 生產排程軟體
 
2. 不知道如何快速排定 採購計劃
 
3. 成本抓不準,自己算比軟體算有用
 
4. 想學習系統規劃,想找系統架構的顧問
 
 
請聯絡我們,也許我們幫得上忙 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		garfield Site Admin
  
  註冊時間: 2003-01-30 文章: 2160
 
  第 4 樓
  | 
		
			
				 發表於: 星期三 九月 01, 2004 10:44 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | 引言回覆: | 	 		  
 
我比較懶.....每次都處理所有的報表檔.... 
 
程式的作者有可能是 
 
1.garfield 
 
2.其他人 
 
3.我 
 
4.我改garfield的程式 
 
5.我改其他人的程式 
 
ㄏㄏ我忘了..... 
 
 | 	  
 
 
只要不是照抄, 有經過消化吸收者皆為原創 ^^ _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		zlabsoft
 
 
  註冊時間: 2003-10-18 文章: 22
 
  第 5 樓
  | 
		
			
				 發表於: 星期六 九月 04, 2004 7:48 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				Hi,
 
    I write one long ago:
 
 
let me know if u feel happy about it. | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		goto-dream
 
 
  註冊時間: 2004-05-11 文章: 909
 
  第 6 樓
  | 
		
			
				 發表於: 星期三 六月 07, 2006 1:30 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				請教zlabsoft,為何要多EMPTY(lcStr) OR LEFT(lcStr,11) = "ORIENTATION"				
 
 
 
 	  | 代碼: | 	 		  
 
            * Clear all printer related data except paper orientation
 
            *
 
            FOR lnLoop1 = 1 TO 100
 
               lcStr = MLINE(EXPR, lnLoop1)
 
               IF EMPTY(lcStr) OR LEFT(lcStr,11) = "ORIENTATION"
 
                  EXIT
 
               ENDIF
 
            ENDFOR
 
            REPLACE EXPR      WITH lcStr, ;
 
                  TAG         WITH "", ;
 
                  TAG2      WITH ""
 
         ENDIF | 	 
  _________________ 福隆昌淨水有限公司--淨水器的專家,淨水器,飲水機,濾心!!
 
 
想了解更多,您可上幸福雞湯組.找尋!!丁澐瑄.老師.
 
 
          愛作夢 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		violetlkk
 
 
  註冊時間: 2003-06-21 文章: 84 來自: kaohsiung
  第 7 樓
  | 
		
			
				 發表於: 星期四 六月 08, 2006 11:29 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				* Clear all printer related data except paper orientation 
 
橫式的報表 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		goto-dream
 
 
  註冊時間: 2004-05-11 文章: 909
 
  第 8 樓
  | 
		 | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
  	 
	    
  	   | 
 	
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
  | 
   
  
		 |