VBS questions

[connormac]

I have a VBS that I run to create a new folder for a new part. I have it set up to ask for customers name then part number. Is there any way to have to create a table or something with all the big customers. then when the VB askes me for cutomer I could just put in 1 or 2 or 3 ....? Have the last option be other. If customer name = other then I would type in new name. Does this make any since????

[connormac]

bump

[pkrzic]

Hello,

 

I believe there is a way (and not only one).

 

Here is how I would do it:

- create a txt file (like customers.txt). this file will contain your customers (every line - one customer).

- use functions like

code:

---

  OpenAsTextStream 

---

to read this file.

 

Here is some small example: of reading a text file line by line:

code:

---

strfile = c:customer.txt  'path to your txt file

Set FSO2 = CreateObject("Scripting.FileSystemObject")

Set TS = FSO2.GetFile(strFile)

Set fsoTextFile = TS.OpenAsTextStream(1, -2)

While fsoTextFile.AtEndOfLine <> True

customer = fsoTextFile.ReadLine

Wend

---

- there is of course some more things to do:

every time the while loop reads a line the script should count the number of the line (like: customer # = line #), if the input number of the customer is some other text (for instance: new customer name) the script shoud not go into the read file loop. Instead it should write a new line into the file at the and of this file (look at the help file for the writing mathod).

- of course you can use similar methods to read the whole file and determine the number of customers, their names,... This information can help you improve user interface.

 

I believe there are some more experineced VBS gurus on this forum like BULLINESS, etc., who can help much more than I can (I believe they would do it some other, more efficient way).

 

I hope you will find this information useful.

 

Pkrzic

[connormac]

Thanks I will try that.

[Guest CNC Apps Guy 1]

If Rekd woudl ever come back... he's very proficient at VBS as well.

[connormac]

Does anyone know how to run a VBS outside of mastercam so I can test it out

[Guest SAIPEM]

Whatever happened to AphexTwin?

 

Long time , no post.

[Mick from CNC Software Inc.]

Below is an example of reading a text file that has a list of customer names and assigning it to an array. The user is prompted for a number that represents a customer index in the list, and then the customer name is retrieved from the array via the index and displayed to the user.

 

There is no error checking at all so you would want to add that in a real world script.

 

 

code:

---

'////////////////////////////////////////////////////////////////////////////////

'//

'// Author: [email protected] Mick George

'// Date: 10/04/2006 09:07 AM

'// File Name: connormac.vbs

'//

'// Description: Mastercam VB Script

'//

'// Comments: Example of reading a flat file

'//

'////////////////////////////////////////////////////////////////////////////////

 

 

'///////////////// My Constants /////////////////

 

' -- Edit path to suit

Const CUSTOMER_INFO = "C:Customer.txt"

 

' Text file has a simple list of customers

'Acme Industries

'CNC Software

'Joe Blow Inc.

 

 

' -- Start Script

Call Main

 

 

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Main()

 

Dim CustomerList

Dim response

Dim selectedCustomer

 

' -- Build the list

CustomerList = GetCustomerList()

 

' -- Prompt for a #

If askNumber("Select a customer #", 1, 100, response) Then

 

' -- Get the customer

selectedCustomer = GetCustomerName(response, CustomerList)

 

If selectedCustomer = "" Then

' -- You could add this customer to your textfile

ShowString "New Customer!"

Else

' -- We have our customer name

ShowString selectedCustomer

End If

 

End If

 

End Sub

 

' -- Pass in the array of customers and the index and return

' -- the customers name at that index

Function GetCustomerName(idx, theList)

 

Dim i

 

For i = 1 To Ubound(theList)

If i = idx Then

GetCustomerName = theList(i)

Exit Function

End If

Next

 

' -- Not found so return null

GetCustomerName = ""

 

End Function

 

 

' -- Open text file and fill an array

' -- with the list of our customers

Function GetCustomerList()

 

Dim FSO, fsoStream

Dim CustomerList()

Dim i

Dim customer

 

Set FSO = CreateObject("Scripting.FileSystemObject")

 

Set fsoStream = FSO.OpenTextFile(CUSTOMER_INFO)

 

' -- Start at 1

i = 1

 

Do While fsoStream.AtEndOfStream <> True

 

customer = fsoStream.ReadLine

 

If Len(customer) > 0 Then

Redim Preserve CustomerList(i)

CustomerList(i) = customer

i = i + 1

End If

 

Loop

 

fsoStream.Close

 

' -- Return

GetCustomerList = CustomerList

 

 

End Function

 

 

---

[connormac]

thanks Mick I will try it monday.