Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
How To
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|
- !Windows Commandline Tricks
- A Word or Phrase in the file search Not Working on XP
- Access to Hardware MP3 Player Device
- Admin Test
- AskYesNo with TimeOut
- Associate Extension to Run Winbatch File
- Autohide Taskbar Code
- Automate FireFox
- Automatically Answer a Dialog Box
- Automatically Clear Pause after EXE Launches
- Base64 encodeing a file
- Block New Program Installs
- BMP Color Change
- Brute Force Way to Convert an int64 that WinBatch Can Handle
- Calculate Text width and height
- Can WinBatch Associate Files
- Capture Control Break
- Change Cursor to Hourglass
- Change Cursor
- Change Explorer Favorites Location
- Change Ip Address
- Change Proportional to Fixed Fonts in Itembox
- Change Share Path
- Changing Default CDROM Drive
- Changing the Windows language
- Check for Multiple Instances of an Application
- Check If a File Is Locked
- Check if a Server is Available
- Check if Application is Installed
- Check if Application is Responsive
- Check if Computer is Locked or Idle
- Check If Extender Is Already Loaded
- Check if Program is Installed
- Check If Someone Is Logged In
- Check If Third Party Menu Item Is Checkmarked
- Check Systems for the MSBlaster Virus
- Check the Grayed-NonGrayed State of Buttons in Pull Down Menus
- Check Which Patches Are Installed
- Clipboard Input Blocked
- Close Child Windows
- Combining WB Scripts
- Command Line Stdin Stdout
- Communicate with a Third-Party Applications Windows-dialogs
- Compress Directory Attribute
- Configure a Workstation to Run HealthStar
- Control Compatibility Mode
- Controlling Citrix Web Client Using WinBatch
- Convert Hex to Ascii
- Convert Image to TIFF
- Convert Temperatures
- Convert TIF to JPG
- Convert Unicode to Big Endian Format File
- Convert Unicode to Big Endian
- Copy Protecting WinBatch Applications
- Create a PDF File
- Create a Shortcut to DUN
- Create a Template WBT file
- Create a Zero K file
- Create Editbox to Accept Formatted Data
- Create Hard Link
- Create Junction Points
- Create Single Byte Arrays and Structures
- Create Startup or Shutdown Script Policies
- Delete a Large Number of Files
- Delete Internet Cookies
- Detect Interact with Desktop
- Detect System Startup Complete
- Detect Version of Java
- Detecting a Locked Workstation
- Detecting Dual Monitors
- Determine Color Range
- Determine Current CD ROM WB is Running On
- Determine IE version installed
- Determine If Menu Bar Has Been Clicked
- Determine if RAS Connection
- Determine Process Start Time
- Determining If a Machine is a Domain Controller
- Disable a Device
- Disable CD Autorun
- Disable Device
- Disable Enable Network Card
- Display Graphical Directory Tree in a Message
- Displaying JPG Files Using Windows Viewer
- Displaying Text Messages on the Console
- DNS Suffix
- Easily Parse Log Files
- Easter finder
- Email HTML Form Data
- Enable or Disable Network Connections
- Enable or Disable Wireless Connection
- Enumerate Devices
- Even or Odd
- Excel Version
- Executing EXE on Remote Computer
- Exit if PC is Idle
- File Size On Disk
- File System Notification on Change
- Financial calculations
- Force Extender Dll Updates
- Format a disk on Windows 2000 or Windows XP
- FTPS Protocol
- Get Current Power Scheme
- Get Current Process ID
- Get Current User Remotely
- Get Data From Memory Address,txt
- Get Default Internet Connection
- Get Highlighted text from Any Window
- Get IE Cache history
- Get Info from a Pair of Directories
- Get Length of MPEG File
- Get line Count and Append if Necessary
- Get Menu String
- Get Microsoft Office Version
- Get Network Address Using IP Address and Subnet mask
- Get Persistent Drive Mappings
- Get Pixel Color
- Get Preferred Language
- Get Process Information from running WinBatch Scripts
- Get ProcessID Thread
- Get Program Files Directory
- Get Remote IP Addresses and Usernames to a List
- Get Unique Records in a List
- Get Version of Internet Explorer
- Get WinBatch Process Environment Block
- Get Windows API Documentation
- Getting WinBatch to Wait - Pause
- GINA Winlogon Desktop and Winbatch
- Grab System Information from MSINFO32
- Handle Errors Including UDFs
- Handling Asynchronous Notifications
- Hibernate
- Hide all the Icons on the Desktop
- Holding down a Key
- How To Call Windows API Functions
- How To Check if a File Handle is Closed
- How to clear event logs
- How to Count Items and Delimiters in a List and Extract Items
- How to Encrypt a Line of Text - Simple Explanation
- How to FTP
- How to Get Encrypted Attribute from a Directory
- How to Locate Functions In Helpfiles
- How to Locate functions in the help files
- How to push Microsoft hotfixes
- How To Read Large File in Multiple Parts
- How to Recurively Copy Files
- How to Retrieve Data from a Database File
- How to Set the AskDirectory Dialog Box Size
- HTML Form Submitted to Winbatch Script
- HTTP Authentication
- Icon Extractor
- Image Comparison
- Increment Through the Alphabet
- Inf Install
- Install a font
- Install AD Printer
- Install File and Print Sharing
- International Date Settings
- Internet Explorer Cache History Retrieval
- Internet time monitor
- Interprogram Communication
- ISO CD Image File
- Issues Interacting with FileMaker Pro
- Kill Predecessor
- Killing 16 bit apps in NT
- Last time ScanDisk and Defrag Performed
- Launch a program on the System Tray
- Launch a WBT File using Explorer SendTo
- Launch Script from SendTo
- Launch the file properties dialog for a file
- Launch WinBatch from Internet Explorer Context Menu
- Limit User Access to Computer
- List all Hotkeys
- List Applications Installed on Remote Machines
- List DVD Drives
- List Installed Modems
- Listing Files from within Zip Files
- Lock NT Server
- Loop Forever until SHIFT Key Pressed
- Lotus Notes - DllCall to change password
- Make a Multiline Input Box
- Make a Thumbdrive Read-Only
- Make Directory Listings
- Make Task Bar Blink
- Make WinBatch Delete Itself
- Making Bitmap files via GDI calls
- Manipulate screen or file data
- Map Ports to Services
- Microsoft Service Pack Checker
- MIME Utility for Email Messages
- Modify Internet Explorer Automatic Detect Setting
- Modify Local Group Policy
- Monitor for Windows Shutdown or Logoff
- Mouse Drag and Highlight - Display Image
- Msi Get File Version
- OCR Support
- Open File Search from StartMenu
- Open MultiUser Files on a Network
- Parse HTML
- Pass Memory Variables to VB
- Passing Parameters from Javascript
- Print Formatted Image Files
- Pushing Elevated WinBatch Scripts to Users
- Query Excel Status Bar Txt
- Random Alpha Numeric Number
- Read Hardware Video BIOS
- Read Quote in INI File
- Read Statusbar Text from Browser
- Recursive directory name search
- Reduce Shape Point List
- Refresh Policy
- Regular Expression Question
- Release LAN IP Settings
- Remove HTML Tags
- Rename a Username without Admin Rights
- Reset IE Settings
- Resize and Place Dialog boxes with 2nd wbt
- Retain Quotation Marks in WB Command Lines
- Run Explorer in a Different Security Context
- Run from Current Location - Webpage
- Run PowerShell Command
- Run WinBatch From Webpage
- RunWithLogon Return to Local User Account
- Save Screen to a BMP File
- Script Minimized When Launched from Lotus Notes Email
- Script Windows Component Install
- Scripting the Group Policy Management Console
- Search for Folder Existence
- Send Control Break to a Window
- Server Connectivity
- Set Disk Volume Name
- Set Modified Date for a Directory
- Set USB Drives To Read Only
- Set Volume
- Show Desktop
- Sorting START menu Alphabetically
- Specify a Script to Run on Startup Shutdown Logon Logoff
- Start Program Only at Windows Shutdown
- Store Image in WBT Script
- Strip out Variable from WBERRORHANDLER Line
- Switch with a Variable Name
- Test
- Thoughts on Writing Faster Code
- Track an Incoming Fax
- Transferring info between WB and other programs
- Translate ANSI Sequences
- Traversing Network Neighborhood using AskFileName
- Turn File Sharing Off on Win95
- Uninstalling Software
- Unlock Workstation Trick
- Use Contents of One AskItemList Box within Another
- Use Global Varaible to tell Errorhandler to Ignore Specific Errors
- Using MS System Agent to Run a WBT File
- Validate WIL Variable Name
- Validating Password
- Various Ways to Download a File
- Verify Calling Parent Process
- Wait until no Input
- WAN IP Address
- Web Scraping
- Winbatch Findstr Equivalent
- Working with RAR Files
- Write to USB Port
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Reduce Shape Point List
Keywords: graphical shape list of points floating point values reduce amount number points keeping shape
;------------------------------------------------------------------------------------------------------------------------------------------
; (c)20101215.Detlev Dalitz.
;------------------------------------------------------------------------------------------------------------------------------------------
; There is a graphical shape given by a list of points (floating point values).
; The goal is to reduce the amount of points while keeping the shape.
;
; Original list (external text file):
; -22.60299683;-23.34320068
; -22.60299683;-23.34457397
; -22.60299683;-23.34457397
; -22.60437012;-23.34457397
; -22.60437012;-23.34457397
; -22.60437012;-23.34594727
; -22.60437012;-23.34594727
; -22.60437012;-23.34732056
; -22.60437012;-23.34732056
; -22.60574341;-23.34732056
; -22.60574341;-23.34732056
; -22.60574341;-23.34594727
; -22.60574341;-23.34594727
; -22.60574341;-23.34457397
; -22.60574341;-23.34457397
; -22.60574341;-23.34320068
; -22.60574341;-23.34320068
; -22.60574341;-23.34182739
; -22.60574341;-23.34182739
; -22.60574341;-23.3404541
; -22.60574341;-23.3404541
; -22.60437012;-23.3404541
; -22.60437012;-23.3404541
; -22.60437012;-23.34182739
; -22.60437012;-23.34182739
; -22.60437012;-23.34320068
; -22.60437012;-23.34320068
; -22.60299683;-23.34320068
;
; Expected result:
; -22.60299683;-23.34320068
; -22.60299683;-23.34457397
; -22.60437012;-23.34457397
; -22.60437012;-23.34732056
; -22.60574341;-23.34732056
; -22.60574341;-23.3404541
; -22.60437012;-23.3404541
; -22.60437012;-23.34320068
; -22.60299683;-23.34320068
;------------------------------------------------------------------------------------------------------------------------------------------
DirChange (DirScript ())
strFileFltPointsIn = "ListFltPointsIn.txt"
strFileFltPointsOut = "ListFltPointsOut.txt"
; Read the item list of points from external text file into a string variable.
strItemListLong = FileGet (strFileFltPointsIn)
strItemListLong = StrTrim (StrReplace (strItemListLong, @CRLF, @TAB)) ; Remove leading and trailing empty lines.
; Prepare the item list of points for later usage by ArrayFileGetCSV.
strFileTemp = FileCreateTemp ("WB")
strItemList = StrReplace (strItemListLong, @TAB, @CRLF)
intBytesWritten = FilePut (strFileTemp, strItemList)
; Do the math.
arrP = ArrayFileGetCSV (strFileTemp, 0, ";")
intLast = ArrInfo (arrP, 1) - 1
intI = 1
While intI < intLast
Switch @TRUE
; Remove duplicate points.
Case arrP[intI, 0] == arrP[intI - 1, 0] && arrP[intI, 1] == arrP[intI - 1, 1]
Case arrP[intI, 0] == arrP[intI + 1, 0] && arrP[intI, 1] == arrP[intI + 1, 1]
ArrayRemove (arrP, intI, 1)
intLast = intLast - 1
Break
; Skip turning points.
Case arrP[intI, 0] == arrP[intI + 1, 0] && arrP[intI, 1] == arrP[intI - 1, 1]
Case arrP[intI, 0] == arrP[intI - 1, 0] && arrP[intI, 1] == arrP[intI + 1, 1]
intI = intI + 1
Break
; Remove inline points.
Case @TRUE
ArrayRemove (arrP, intI, 1)
intLast = intLast - 1
EndSwitch
EndWhile
; Write the reduced item list of points to external text file.
intBytesWritten = ArrayFilePutCSV (strFileFltPointsOut, arrP, ";", @FALSE, 2)
; Display result.
strItemListShort = FileGet (strFileFltPointsOut)
strItemListShort = StrTrim (StrReplace (strItemListShort, @CRLF, @TAB)) ; Remove leading and trailing empty lines.
intItemsLong = ItemCount (strItemListLong, @TAB)
intItemsShort = ItemCount (strItemListShort, @TAB)
strItemListLong = StrReplace (strItemListLong, @TAB, @LF)
strItemListShort = StrReplace (strItemListShort, @TAB, @LF)
Pause ("Result|ItemsLong=" : intItemsLong : "|ItemsShort=" : intItemsShort, strItemListLong : @LF : @LF : strItemListShort)
Run (strFileFltPointsIn, "")
Run (strFileFltPointsOut, "")
:CANCEL
blnResult = FileDelete (strFileTemp)
Exit
Article ID: W17944
Filename: Reduce Shape Point List.txt
File Created: 2010:12:15:08:40:18
Last Updated: 2010:12:15:08:40:18