C / C++ / MFC

Faez Shingeri wrote:

rewind(fp1);
rewind(fp2);

while ((find_ptr = strstr(buff_ptr,text2find)) && find_ptr+find_len+1 == NULL)

Faez Shingeri wrote:

I thought rewind will help me during the reuse of the file..

Faez Shingeri wrote:

while ((find_ptr = strstr(buff_ptr,text2find)) && find_ptr+find_len+1 == NULL)

*************************************************************************
	  * 							API TEMPLATE PROGRAM                      *
	  * THIS PROGRAM SERVES AS A TEMPLATE TO GENERATE THE ACTUAL API PROGRAM  *
	  *                                                                       *
	  * MAPPING RULES: 														  *
	  * --------------------------------------------------------------------  *
	  *		Variable Name						Replace with				  *
	  * --------------------------------------------------------------------  *
	  *     &apiname				API Name from Mapping Repository          *
	  *     &dclgen					DCLGEN name from Mapping Repository       *
	  *     &keyinfo				Key field column name from file layout    * 
	  *     &hostvarprimary			Key field host var name from DCLGEN       *
	  *     &tablecols				Table column name from DCLGEN             *
	  *     &tablehostvars			Host variable names from DCLGEN           *
	  *     &tblprimary				Key field column name from DCLGEN         *
	  *     &tablehostvars01		01 level of host var from DCLGEN          *
	  *************************************************************************  
/* strings to be replaced if present in the above block should be ignored */	  
       IDENTIFICATION DIVISION.
	   PROGRAM-ID. &apiname. /* &apiname string shud be replaced with another string */
	   
	   		EXEC SQL
			INCLUDE &dclgen
		END-EXEC.
	   
		EXEC SQL
			INCLUDE SQLCA
		END-EXEC.
	   
	 	   2100-SELECT-PARA.
			MOVE &keyinfo TO &hostvarprimary
			EXEC SQL
				SELECT &tablecols /* &tablecols to be replaced with another string */
					INTO
					&tablehostvars /*&tablehostvars to be replaced with another string */


					FROM &tblname
					WHERE
					&tblprimary = &hostvarprimary
			END-EXEC
			IF SQL-CODE EQUAL ZERO
				SET FUNC-SUCCESS	TO TRUE
				MOVE &tablehostvars01 TO VSAM-REC-BLOCK
			ELSE
				PERFORM 9999-ABEND-PARA
			END-IF.
	   2100-SELECT-PARA-EXIT. EXIT.

	   2200-INSERT-PARA.
			MOVE VSAM-REC-BLOCK TO &tablehostvars01 /* This &tablehostvars01 string SHOULD NOT be replaced.. */
			EXEC SQL
				INSERT INTO &tblname
				(
				&tablecols
				)
				VALUES
				(
				&tablehostvars
				)
			END-EXEC
			IF SQL-CODE EQUAL ZERO
				SET FUNC-SUCCESS	TO TRUE
			ELSE
				PERFORM 9999-ABEND-PARA
			END-IF.
	   2200-INSERT-PARA-EXIT. EXIT.	   
			
	   2300-UPDATE-PARA.
			MOVE VSAM-REC-BLOCK TO &tablehostvars01 /* shud not be replaced */
			EXEC SQL
				UPDATE &tblname
				SET &tablecols = :&tablehostvars
					WHERE
					&tblprimary = &tablehostvarsprimary /* shud not be replaced */
			END-EXEC
			IF SQL-CODE EQUAL ZERO
				SET FUNC-SUCCESS	TO TRUE
			ELSE
				PERFORM 9999-ABEND-PARA
			END-IF.
	   			EXIT PROGRAM.

replace(char text2find[80],char text2repl[80],char fileOrig[32], char fileRepl[32] )
{

	    char buffer[MAX_LEN_SINGLE_LINE+2];
	    char *buff_ptr, *find_ptr, *tok;
	    FILE *fp1, *fp2;
	    size_t find_len = strlen(text2find);

	    fp1 = fopen(fileOrig,"r+");
	    fp2 = fopen(fileRepl,"w+");
	    rewind(fp1);
	    rewind(fp2);

	    while(fgets(buffer,MAX_LEN_SINGLE_LINE+2,fp1))
	    {
	        buff_ptr = buffer;
	        tok = strtok(buff_ptr,"*");
	        if(tok != NULL)
	        {
	        	while ((find_ptr = strstr(buff_ptr,text2find)))
	        	{

	        		while(buff_ptr < find_ptr)
	                fputc((int)*buff_ptr++,fp2);

	        	fputs(text2repl,fp2);

	            buff_ptr += find_len;

	        	}
	        	fputs(buff_ptr,fp2);
	        }
	    }

	   fclose(fp2);
	   fclose(fp1);
}

manmadkumarreddy wrote:

i have only 25 hours time to complete that above project

manmadkumarreddy wrote:

have only 25 hours time to complete that above project

manmadkumarreddy wrote:

25 hours time to complete

manmadkumarreddy wrote:

source code please send

linnumberone wrote:

I have search gSpan by google, but the code i find which need the environment with matlab.