ProFox October 2016

profox@leafe.com

47 participants
33 discussions

Excel errors
by rafael copquin 24 Oct '16

24 Oct '16

I have been using Excel automation for years. However, I could not find a way to kill the Excel application when an error occurs. Here is an example: I have this cursor with an inventory list that contains 9000 rows and 10 columns, named curStock. I save the cursor with: local cExcel cExcel = 'c:\temp\stock.xls' select curStock copy to (cExcel) type xl5 if upper(vartype(thisform.oExcel)) = "O" thisform.oExcel.quit thisform.oExcel = .f. Else thisform.AddProperty('oExcel') EndIf if upper(vartype(thisform.oExcel)) <> "O" thisform.oExcel=createobject("Excel.Application") else thisform.oExcel=getobject(,"Excel.Application") endif Try lOK = .t. With thisform.oExcel .workbooks.open("&cExcel") endwith Catch to oError lOK = .f. MessageBox(oError.message,16,'Excel caused an error',2000) thisform.oExcel.quit EndTry if not lOK quit else *** show the spreadsheet endif The property thisform.oExcel is trying to open the big Excel sheet (stock.xls) but fails Supposedly thisform.Excel.quit should kill the Excel instance. However it still remains in memory. The task manager shows it is still dangling in memory but is invisible. How can I kill it? BTW I use this approach instead of filling and formatting the sheet line by line, because it takes about half an hour to show, due to the large amount of records the cursor contains. Rafael Copquin

6 8

Re: Speeding up a Powershell script
by Gene Wirchenko 24 Oct '16

24 Oct '16

At 05:01 2016-10-21, mbsoftwaresolutions(a)mbsoftwaresolutions.com wrote: >On 2016-10-19 09:43, Malcolm Greene wrote: >>A great use case for getting your feet wet with Python. >>BTW: Powershell syntax wants me to gouge my eyes out. Anyone else feel >>the same way? I guess I just do not have your enthusiasm. <BEG> I just look away. Yes, I think it is ugly. >+1. It's like the UberNerds who want to obfuscate just for the >"fun" of it to be UberNerds. I felt similar about RegExp. Regexes can be great, but I resist the temptation to make long regexes. That gets in write-only code all too fast. Instead, I might use a couple of shorter ones with a bit of glue code. Sincerely, Gene Wirchenko

5 4

[NF] Command Line programming
by Stephen Russell 22 Oct '16

22 Oct '16

Simple intro on making apps from the command line. https://docs.microsoft.com/en-us/dotnet/articles/core/tools/ If the .NET IDE gets in the way you can do simple stuff this way. -- Stephen Russell Sr. Analyst Ring Container Technology Oakland TN 901.246-0159 cell --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

1 0

Speeding up a Powershell script
by Man-wai Chang 21 Oct '16

21 Oct '16

The following Powershell script aims to count and calculate file sizes of each unique file extension in the current folder recursively. How would you speed up this script for a folder with over 170000 entries? The problem is the following two statements being repeated for each unique file extension, causing a re-parse of $AllFiles which contains over 170000 entries. $Files = $AllFiles | Where { $_.Extension -eq $Ext.Extension } $FilesSum = ($Files | Measure-Object Length -Sum).Sum *** BEGIN *** Write-Host "Reading directory ... $Path" $AllFiles = Get-ChildItem $Path -Include * -Recurse -OutBuffer 2048| Where { $_.PSisContainer -eq $false } Write-Host "Number of Files = $((a)($AllFiles).Count)" $AllSum = ($AllFiles | Measure-Object Length -Sum).Sum If ($AllFiles.Length) { Write-Host "Counting unique file extensions = " -NoNewLine $Extensions = $AllFiles | Select Extension -Unique | Sort Extension Write-Host ($Extensions).Count foreach ($x in $Extensions){ Write-Host $x.Extension } exit ForEach ($Ext in $Extensions) { Write-Host "Counting ... $Ext = " -NoNewline $Files = $AllFiles | Where { $_.Extension -eq $Ext.Extension } $FilesSum = ($Files | Measure-Object Length -Sum).Sum Write-Host $FilesSum $Percent = "{0:N0}" -f (($FilesSum / $AllSum) * 100) $Body += " <tr><td>$($Ext.Extension)</td><td>$((a)($Files).Count)</td><td><div class=""green"" style=""width:$Percent%"">$('{0:N2}MB' -f ($FilesSum / 1mb))</div></td></tr>" } $HTML = $HeaderHTML + $Body + $FooterHTML Write-Host "Writing file $OutputPath\FilesByExtension.html" $HTML | Out-File $OutputPath\FilesByExtension.html Write-Host "Done!" } Else { Write-Host "`nNo files found in $Path" } *** END *** -- .~. Might, Courage, Vision. SINCERITY! / v \ 64-bit Ubuntu 9.10 (Linux kernel 2.6.39.3) /( _ )\ http://sites.google.com/site/changmw ^ ^ May the Force and farces be with you!

8 21

Command button to take a photo
by Sytze de Boer 21 Oct '16

21 Oct '16

In my application, which will be installed on a tablet or laptop, I need a command button which will take a photograph. As I understand it, these photos will always automatically be stored in a specific folder. Is this possible? Is there someone who has done this and willing to share the source? -- Kind regards, Sytze de Boer --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

6 6

Re: [NF] VMWare Player Not Finding Host Printers - Solved
by Charles Hart Enzer, M.D. 21 Oct '16

21 Oct '16

Solution: Googling, many have had this problem with VMWare Workstation Player 12. I have two solutions: 1. Print to a PDF printer 2. Save on Host Desktop 3. Print the PDF with Host Printer 1. Install network printer using the printer's URL - http://192.168.200.100 And I read on Wikipedia that 800 staff were fired: *https://www.thurrott.com/windows/64213/layoffs-at-vmware-to-impact-workstation-and-fusion-virtualization-products* <https://www.thurrott.com/windows/64213/layoffs-at-vmware-to-impact-workstat…> *http://www.zdnet.com/article/vmware-swears-it-will-continue-to-support-fusion-and-workstation/* <http://www.zdnet.com/article/vmware-swears-it-will-continue-to-support-fusi…> *Charles Hart Enzer, M.D., FAACAPVolunteer Associate Professor of PsychiatryUniversity of Cincinnati Medical CenterWebSite: http://homepages.uc.edu/~enzerch/ <http://homepages.uc.edu/%7Eenzerch/>* *Integrity:* * Doing the Right Action --* * Including When None Are Watching* On Tue, Oct 18, 2016 at 5:22 PM, Charles Hart Enzer, M.D. <cenzer(a)gmail.com> wrote: > Dear Dave: > > Can you suggest a next step for my VMWare Player not finding host printers? > > After upgrading to WIN10, my guest OS on VMWare Player can't see host > printers. > > On the Host, I have enabled sharing for the printers. > > What is my next step? > > VMware Player Workstation 12 Version 12.5.0 > > Host OS > WIN 10 Home > > Guest OS > XP Pro > > Charles > --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

1 0

Best way to determine file size from VFP9SP2 app using Excel automation
by mbsoftwaresolutions＠mbsoftwaresolutions.com 20 Oct '16

20 Oct '16

My VFP9SP2 app creates an Excel file via automation. I want to echo back to the originating form the filename and filesize created. I checked out the FSIZE command but wondered if there was a better way to determine the outputted file size? These files are being created on a network drive, most likely (unless the user chooses a local drive). WSH (Windows Scripting Host) comes to mind (but not sure if that's locked down). tia, --Mike

2 3

Re: [NF] Low Message Volume or Other Problem?
by Gene Wirchenko 18 Oct '16

18 Oct '16

At 12:00 2016-10-17, Ted Roche <tedroche(a)gmail.com> wrote: >Could be. I black-hole enough messages that my archives may not be >reliable, but I see around 70 messages posted so far. Monthly totals >have varies from 400+ to 250 this year, so that's low. Including your message, I see 49 so far this month. I filter some E-mail but not ProFox messages. Sincerely, Gene Wirchenko

3 2

[NF] VMWare Player Not Finding Host Printers
by Charles Hart Enzer, M.D. 18 Oct '16

18 Oct '16

Dear Dave: Can you suggest a next step for my VMWare Player not finding host printers? After upgrading to WIN10, my guest OS on VMWare Player can't see host printers. On the Host, I have enabled sharing for the printers. What is my next step? VMware Player Workstation 12 Version 12.5.0 Host OS WIN 10 Home Guest OS XP Pro Charles --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

2 2

[NF] VMWare Player Not Finding Host Printers
by Charles Hart Enzer, M.D. 18 Oct '16

18 Oct '16

After upgrading to WIN10, my guest OS on VMWare Player can't see host printers. On the Host, I have enabled sharing for the printers. What is my next step? VMware Player Workstation 12 Version 12.5.0 Host OS WIN 10 Home Guest OS XP Pro *Charles Hart Enzer, M.D., FAACAPVolunteer Associate Professor of PsychiatryUniversity of Cincinnati Medical CenterWebSite: http://homepages.uc.edu/~enzerch/ <http://homepages.uc.edu/~enzerch/>* *Integrity:* * Doing the Right Action --* * Including When None Are Watching* --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

1 0

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

ProFox October 2016