Jump to content

  • Log In with Google      Sign In   
  • Create Account

Lua code explained


Old topic!
Guest, the last post of this topic is over 60 days old and at this point you may not reply in this topic. If you wish to continue this conversation start a new topic.

  • You cannot reply to this topic
No replies to this topic

#1 Woody FX   Members   -  Reputation: 169

Like
Likes
Like

Posted 16 April 2003 - 02:47 AM

This code is a lua script i''m trying to work on i have commented it as much as i understand... There are a few functions at the bottom which i think are from the actual VC++ part of the project (i could be wrong). But if i have anything wrong please let me know as i am still learning.

BarCode = {}  -- does this just sign nothing to Barcode.... like int i=0; for example just initialising it as a variable
Description = {}
Vendor = {}
Basis_price = {}
j = 0; i = 0
	
	transfer = readfrom ( "Stock type.txt", "r")  --** if you used w+ instead of r it should remove previous data read command to read from file
	read ()                                       -- reads in next line so first line in file is skipped before get to repaet command                          
repeat                                                 -- ***** Repeat until command
	
	line = read ()           -- copys the next line in file in line which becomes a string
	i = i + 1		-- increments i by one	
	if line ~= nil then    -- if the line does not contain nil (nothing)
		
		barcode = strsub ( line, 1, 16 )  -- copies substring of ''line'' from position 1 to 16 into barcode
		
	
		describe = strsub ( line, 17, 58 ) -- describe is the sustring of ''line'' from 17-58
		pos = strfind ( describe, "  " )  -- finds the first white space in the string describe and stores its position in ''pos''
		describe = strsub ( describe, 1, pos )
		location = strsub ( describe, pos )      -- location holds data from pos to end of string
		
                        if strfind ( location, "(%w)" ) ~= nil then    --** (%W) looks for a alphanumeric char if some
			start, Eend = strfind ( location, "(%w)" )     -- characters found then start and end =
			MessageBox ( "start "..start )                 -- prints message to screen
			MessageBox ( "end "..Eend )
		end                          -- ends the then                                
	
		if barcode ~= "" or barcode ~= nil then              --  if  barcode found i.e. not nil or empty string
			j = j + 1
			
			stock_acno = CreateAccount ( "700 *", describe, 0.00, "" )    -- function
			SetStockHeaderBasisPrice ( stock_acno, 0.00, 0.00 )	      -- function
			GetHeaderDataForAccount ( stock_acno )			      -- function
		

			SetHeaderStringNo ( 10, barcode )				--function
			SaveHeaderData ()						--function
		end 
	else
		read ( "*l" )   reads in the next line ... exact same as saying  read()
	end

until i == 5 
		
MessageBox ( "End" )--

 
Thanks Brian

Sponsor:



Old topic!
Guest, the last post of this topic is over 60 days old and at this point you may not reply in this topic. If you wish to continue this conversation start a new topic.



PARTNERS