public PageInfo(string pstrFilePathAndName)
{
// mstrPageName = Strings.LCase(RemovePath(pstrFilePathAndName));
mstrPageName = RemovePath(pstrFilePathAndName);
string sstrSource = null;
sstrSource = OpenFile(pstrFilePathAndName);
int slonProcessLocation = 0;
//get control info
ControlsInfo sclsControlsInfo = null;
sclsControlsInfo = new ControlsInfo();
ControlInfo sclsFormControl = null;
//first (top) control should be Begin Form
sclsFormControl = sclsControlsInfo.GetControlsInfo(sstrSource, ref slonProcessLocation);
mcolControlsByName = sclsControlsInfo.ControlsByName;//not used?
mcolAllControls = sclsControlsInfo.AllControls;
//GetControlsInfo above should leave slonProcessLocation at the end of Control area of file and just before Function area of file
//get function info
mclsFunctionsInfo = new FunctionsInfo(sstrSource, ref slonProcessLocation);
mlstFunctions = mclsFunctionsInfo.Functions; //used in WritePHPPage function below
mlstOpenFormNames = mclsFunctionsInfo.OpenFormNames; //used in WritePHPPage function below
}
public PageInfo(string pstrFilePathAndName)
{
// mstrPageName = Strings.LCase(RemovePath(pstrFilePathAndName));
mstrPageName = RemovePath(pstrFilePathAndName);
string sstrSource = null;
sstrSource = OpenFile(pstrFilePathAndName);
int slonProcessLocation = 0;
//get control info
ControlsInfo sclsControlsInfo = null;
sclsControlsInfo = new ControlsInfo();
ControlInfo sclsFormControl = null;
//first (top) control should be Begin Form
sclsFormControl = sclsControlsInfo.GetControlsInfo(sstrSource, ref slonProcessLocation);
mcolControlsByName = sclsControlsInfo.ControlsByName;//not used?
mcolAllControls = sclsControlsInfo.AllControls;
//GetControlsInfo above should leave slonProcessLocation at the end of Control area of file and just before Function area of file
//get function info
mclsFunctionsInfo = new FunctionsInfo(sstrSource, ref slonProcessLocation);
mlstFunctions = mclsFunctionsInfo.Functions; //used in WritePHPPage function below
mlstOpenFormNames = mclsFunctionsInfo.OpenFormNames; //used in WritePHPPage function below
}
public PageInfo(string pstrFilePathAndName)
{
mstrPageName = Strings.LCase(RemovePath(pstrFilePathAndName));
string sstrSource = null;
sstrSource = OpenFile(pstrFilePathAndName);
int slonProcessLocation = 0;
long sslonProcessLocation = 0;
//sstrSource string starts at location 1
slonProcessLocation = 1;
sslonProcessLocation = 1;
//get control info
ControlsInfo sclsControlsInfo = null;
sclsControlsInfo = new ControlsInfo();
ControlInfo sclsFormControl = null;
//first (top) control should be Begin Form
//150203 sclsFormControl = sclsControlsInfo.GetControlsInfo(sstrSource, ref sslonProcessLocation);
sclsFormControl = sclsControlsInfo.GetControlsInfo(sstrSource, ref slonProcessLocation);//150203
//Ian - break here
//inpect mlstAttributes and you can see attributes in a control
//if you inspect sclsFormControl you can keep drilling down into SubControls to see the whole control part of the file
//I haven't had time yet - but I think the next step is to create a Collection that has all the Controls on the page using its Name as the index, not caring about where it is in the form
// what we are looking for is the button that is calling a certain OpenForm so we can put that control on the page and have it when clicked open the next page
// MsgBox("Ian break here")
//GetControlsInfo above should leave slonProcessLocation at the end of Control area of file and just before Function area of file
//get function info
//I think we need lstOpenFormsNamesUnique - just names of forms to be processed
//-change so only making unique right when adding to lstOpenFormsNameUnique if not doing tha talready
//and a list of open forms with associalted function name
//-for now skip controls
//--goto functions - if only 1 OpenForm and its in Load then redirect to new page
//---so need OpenForms by Function
//150110 Dim sclsFunctionsInfo As FunctionsInfo
//150110 sclsFunctionsInfo = New FunctionsInfo
//150110 sclsFunctionsInfo.GetFunctionsInfo(sstrSource, slonProcessLocation)
//151010 sclsFunctionsInfo = New FunctionsInfo(sstrSource, slonProcessLocation) '150110
mclsFunctionsInfo = new FunctionsInfo(sstrSource, ref slonProcessLocation);
//150110
mlstFunctions = mclsFunctionsInfo.Functions;
mlstOpenFormNames = mclsFunctionsInfo.OpenFormNames;
//
// MsgBox("Ian break here to check out the mlstOpenFormsNames")
}
