Follow up

Post #172,730 by broomberg 9/4/04 12:54:33 PM Reply	Follow up OK, here's the current 1st screen: [link\|http://www.voicenet.com/~broom/pnt_sub.jpg\|http://www.voicenet....broom/pnt_sub.jpg] The goal here is to be able to save, load, and "submit" jobs. So everything you see should be populated by the previously saved job if there is one. The elipses buttons launch either file or dir pick boxes which then populate the text box. The email address will become a multi-select with the ability to add more. The data file "Get Data" button launches a multi-select pick box which then populates the list. Other tabs such as "Spool Sheet" and "Job Control" are mostly fill in the blank or check box forms. Status and Logs will have to get an ODBC connection to a PostGreSQL instance running on the spooler box. The back-end spooler engine will post messages and logs to it, which in turn can be read "here". The "SGE Status" will possibly poll an local web server that has CGIs that show the status, or I'll do some SOAP (possibly) interface into it. The final result is a flat file that looks something like this: \nJOB=P9250A09\nPROJECT=P9250\nCLEAR_LOCKS=0 \n#\n#\n##################################################\n#\n# PrintNet Workflow file\n#\n##################################################\n#\nPNT_WFD=newwidenelnet.wfd\n#\n##################################################\n#\n# 1 or more data files. List them in order that\n# you want them spooled. They must be the output\n# from the production step. The information\n# such as segment, lrecl, etc, should be in the previous\n# control file that was used to create them.\n#\n##################################################\n#\n#\nDATA_FILES=\nccip_p9250_t09_a09_seg_zp2_k01_s0001.txt\nccip_p9250_t09_a09_seg_zp2_k01_s0002.txt\nccip_p9250_t09_a09_seg_zp2_k01_s0003.txt\nccip_p9250_t09_a09_seg_zp2_k01_s0004.txt\nccip_p9250_t09_a09_seg_zp2_k01_s0005.txt\nccip_p9250_t09_a09_seg_zp2_k01_s0006.txt\nccip_p9250_t09_a09_seg_zp2_k01_s0007.txt\nccip_p9250_t09_a09_seg_zp2_k01_s0008.txt\nccip_p9250_t09_a09_seg_zp2_k01_s0009.txt\nccip_p9250_t09_a09_seg_zp2_k01_s0010.txt\nEND=DATA_FILES\n#\n#\n##################################################\n I have a program sweeping a directory that the workstatations have Samba mounted (Thanks Greg). They drop the file there, it gets submitted into the spooling engine, stuff happens, email gets sent, spool control sheets are printed / emailed, proofs are produced, really big spool files get placed on the final print control server, approval happens, print run commences. The various drop down boxes in this program should be externally populated by reading an INI file so a programmer is not required to add things to the drop-down lists. I can't find a ReadINI/WriteINI interface. I could have sworn it was in the last VB I worked in years ago! So now do you have a better idea of what my questions mean?
Post #172,746 by altmann 9/4/04 4:08:59 PM Reply	Re: Follow up I don't think either the textbox/button or the listbox/buttons controls come with VB. They don't come with VB.Net, which is all I have here. The former control may exist as a 3rd party control but by the time you find one you could have written the 2 lines of code it takes to implement it. The other control would take a few more to loop through the multiple selections and add them to the listbox. A few more for the remove items button and you're done. I took your original post to be asking if there was a pre-existing file dialog control, which there is. -- Chris Altmann
Post #172,747 by altmann 9/4/04 4:36:47 PM Reply	Re: INI files [link\|http://www.officecomputertraining.com/vbtutorial/tutpages/page40.asp\|http://www.officecom...tpages/page40.asp] -- Chris Altmann
Post #172,749 by broomberg 9/4/04 5:15:34 PM Reply	Is there such a thing as a multiline INI entry?
Post #172,752 by altmann 9/4/04 6:04:46 PM Reply	Re: Is there such a thing as a multiline INI entry? You might be able to embed newlines in the string value if you can guarantee no =[] chars in the value, but I don't know first hand. Try it and see what happens. There is also the following warning in the docs for GetPrivateProfileString: lpReturnedString [out] Pointer to the buffer that receives the retrieved string. Windows Me/98/95: The string cannot contain control characters (character code less than 32). Strings containing control characters may be truncated. -- [link\|http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/getprivateprofilestring.asp\|http://msdn.microsof...profilestring.asp] Perhaps you could do something like the following: NUM_DATA_FILES=10 DATA_FILE_0001=ccip_p9250_t09_a09_seg_zp2_k01_s0001.txt DATA_FILE_0002=ccip_p9250_t09_a09_seg_zp2_k01_s0002.txt DATA_FILE_0003=ccip_p9250_t09_a09_seg_zp2_k01_s0003.txt DATA_FILE_0004=ccip_p9250_t09_a09_seg_zp2_k01_s0004.txt DATA_FILE_0005=ccip_p9250_t09_a09_seg_zp2_k01_s0005.txt DATA_FILE_0006=ccip_p9250_t09_a09_seg_zp2_k01_s0006.txt DATA_FILE_0007=ccip_p9250_t09_a09_seg_zp2_k01_s0007.txt DATA_FILE_0008=ccip_p9250_t09_a09_seg_zp2_k01_s0008.txt DATA_FILE_0009=ccip_p9250_t09_a09_seg_zp2_k01_s0009.txt DATA_FILE_0010=ccip_p9250_t09_a09_seg_zp2_k01_s0010.txt or omit the count and just loop through the keynames till there are none left. Or you could write and read/parse the file yourself, which I imagine you are trying to avoid :) -- Chris Altmann
Post #172,753 by broomberg 9/4/04 6:21:22 PM Reply	That's nasty And yes, I hate this "language" so much I'm trying to avoid coding if possible. But looks like I have no choice. Care to tell me how to loop over the currently selected items in a multi select list combo box. I've tried deleting by index entries, selected items, collections of indices, and other various combinations. At list point I'm deleting the 1st highlit one and forcing the user to jot the button once for each one, which I consider wrong.
Post #172,756 by altmann 9/4/04 8:02:28 PM Reply	Re: That's nasty If I had VB Classic here I'd give you actual tested code, but I only have VB.Net which will be different, so I'll have to refer to TFM: [link\|http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/vbpromultiselectx.asp\|http://msdn.microsof...omultiselectx.asp] and modify the example thusly: \nPrivate Sub Command1_Click ()\n Dim I\n\n For I = 0 To List1.ListCount - 1\n If List1.Selected(I) Then\n List1.RemoveItem I\n End If\n Next I\nEnd Sub\n A ComboBox can't have multiple select so I assume you misworded that and meant ListBox. Also, here is an info on getting multiple filenames back from the File Open common dialog: [link\|http://vbnet.mvps.org/index.html?code/faq/cdlgmultiselect.htm\|http://vbnet.mvps.or...lgmultiselect.htm] -- Chris Altmann
Post #172,757 by broomberg 9/4/04 8:16:42 PM Reply	I'm VB Net as well I got the multi-file names from box and loaded into the box. But it doesn't seem that your code will work for me. Yes, trying to morph it to fit my scenario. My "DataFileBox" is defined as a ListBox. ListBox does not have a ListCount. It seems you are referring to the Item() which is an ObjectCollection, which has a Count(). But then you check to see if the same indexed value is turned on in the Selected list. But the Selected list is a subset of the real list, and the indexes into to that should be the actual index into THAT list, not the matching index in the total list. Am I using the wrong collection to start off with?
Post #172,769 by altmann 9/5/04 2:25:54 AM Reply	My fault I remembered a recent post by you (it was you wasn't it?) where you decided not to go with the latest greatest .Net and stick with the tried and true classic VB. My code probably wouldn't work to well in VB.net. I'll get you something more appropriate in a sec. -- Chris Altmann
Post #172,770 by broomberg 9/5/04 2:27:59 AM Reply	No choice You can't buy a VB that is not .NET. On the other hand, I'm treating it as a standalone program.
Post #172,772 by altmann 9/5/04 2:58:15 AM Reply	VB.Net is far better anyways IMHO Try this: \n Private Sub filenameBrowseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filenameBrowseButton.Click\n If filenameDialog.ShowDialog() = DialogResult.OK Then\n filenameTextBox.Text = filenameDialog.FileName\n End If\n End Sub\n\n Private Sub addFilesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addFilesButton.Click\n Dim fileName As String\n\n If addFilesDialog.ShowDialog() = DialogResult.OK Then\n For Each fileName In addFilesDialog.FileNames\n filesListbox.Items.Add(fileName)\n Next\n End If\n End Sub\n\n Private Sub removeFilesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles removeFilesButton.Click\n While filesListbox.SelectedIndices.Count > 0\n filesListbox.Items.RemoveAt(filesListbox.SelectedIndex)\n End While\n End Sub\n -- Chris Altmann
Post #172,773 by altmann 9/5/04 3:09:31 AM Reply	And re the INI files You'll have to a find a wrapper similar to the one I posted to get to the old Win32 APIs for INI files from .Net This might do the job: [link\|http://www.developer.com/net/asp/article.php/3287991\|http://www.developer...ticle.php/3287991] -- Chris Altmann
Post #172,775 by broomberg 9/5/04 3:20:05 AM Reply	Thanks, remove is good The others I already coded using essential the same, except I stripped the full path.

Welcome to IWETHEY!