Setting VB Script to use parts of file name

[connormac]

When I have MasterCam open accross the top of the screen is the file name,

"Z:"customer name""part name"source"part name".mcx.

I know tis is the path to the source file.

Here is my question.

I have a VB Script that askes me for "customer name" and part number" so it can use it later on in the script.

Is there anyway to capture those without having to type them in every time I use the script?

[Guest SAIPEM]

code:

---

Call Main

 

Sub Main()

 

MsgBox GetCustomer("Z:customer namepart namesourcepart name.mcx")

MsgBox GetPartNumber("Z:customer namepart namesourcepart name.mcx")

 

End Sub

 

 

Function GetCustomer(strQualifiedPath)

 

Dim intN

 

For intN = 4 To Len(strQualifiedPath)

 

 

If Mid(strQualifiedPath,intN,1) = "" Then

 

Exit For

 

Else

 

GetCustomer = GetCustomer & Mid(strQualifiedPath,intN,1)

 

End if

 

Next

 

End Function

 

 

Function GetPartNumber(strQualifiedPath)

 

Dim intN

Dim intCount

Dim strCustomer

 

strCustomer = GetCustomer(strQualifiedPath)

 

For intN = 4 To Len(strQualifiedPath)

 

If Mid(strQualifiedPath,intN,1) = "" Then

 

intCount = intCount + 1

 

If intCount = 2 then

Exit For

End if

 

Else

 

GetPartNumber = GetPartNumber & Mid(strQualifiedPath,intN,1)

 

End if

 

Next

 

GetPartNumber = Replace(GetPartNumber, strCustomer, vbNullString)

 

End Function

---

 

[ 03-12-2007, 10:57 AM: Message edited by: SAIPEM ]

[connormac]

OK

I went from this

 

code:

---

'///////////////// My Global Variables //////////

 

 

 

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

'On Error Resume Next

 

' -- Check for drawing

If IsDrawing Then

 

 

Dim companyname

Dim Program

 

 

Do 'ask until a real company name is entered

companyname=Trim(AskString("Enter Company's Name",""))

Loop While companyname="Company Name?" Or companyname="((ESC))" Or companyname=""

 

Do 'ask until a real program number is used

Program=Trim(AskString("Enter Part Number and Rev.",""))

Loop While Program="Part number?" Or Program="" Or Program="((ESC))"

 

 

If Not MakeFolders(companyname, Program) Then

ShowString "Failed to create folders, aborting script"

Exit Sub

End If

 

---

to this:

 

code:

---

'///////////////// My Global Variables //////////

 

 

 

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

 

Sub Main()

 

MsgBox GetCustomer("Z:companynameprogramsourceptogram.mcx")

MsgBox GetPartNumber("Z:companynameprogramsourceprogram.mcx")

 

End Sub

 

 

Function GetCustomer(strQualifiedPath)

 

Dim intN

 

For intN = 4 To Len(strQualifiedPath)

 

 

If Mid(strQualifiedPath,intN,1) = "" Then

 

Exit For

 

Else

 

GetCustomer = GetCustomer & Mid(strQualifiedPath,intN,1)

 

End if

 

Next

 

End Function

 

 

Function GetPartNumber(strQualifiedPath)

 

Dim intN

Dim intCount

Dim strCustomer

 

strCustomer = GetCustomer(strQualifiedPath)

 

For intN = 4 To Len(strQualifiedPath)

 

If Mid(strQualifiedPath,intN,1) = "" Then

 

intCount = intCount + 1

 

If intCount = 2 then

Exit For

End if

 

Else

 

GetPartNumber = GetPartNumber & Mid(strQualifiedPath,intN,1)

 

End if

 

Next

 

GetPartNumber = Replace(GetPartNumber, strCustomer, vbNullString)

 

End Function

 

---

and it gives me an error

IActiveScriptSite::OnScriptError()

Line: End If

[Guest SAIPEM]

The script I gave you was raw VB Script and it runs fine.

 

You may have to massage it for MC Scripting

[Guest SAIPEM]

code:

---

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

Dim strName

strName = GetCurrentFileName

ShowString GetCustomer(strName)

ShowString GetPartNumber(strName)

 

End Sub

 

Function GetCustomer(strQualifiedPath)

 

Dim intN

 

For intN = 4 To Len(strQualifiedPath)

 

 

If Mid(strQualifiedPath,intN,1) = "" Then

 

Exit For

 

Else

 

GetCustomer = GetCustomer & Mid(strQualifiedPath,intN,1)

 

End If

 

Next

 

End Function

 

 

Function GetPartNumber(strQualifiedPath)

 

Dim intN

Dim intCount

Dim strCustomer

 

strCustomer = GetCustomer(strQualifiedPath)

 

For intN = 4 To Len(strQualifiedPath)

 

If Mid(strQualifiedPath,intN,1) = "" Then

 

intCount = intCount + 1

 

If intCount = 2 Then

Exit For

End If

 

Else

 

GetPartNumber = GetPartNumber & Mid(strQualifiedPath,intN,1)

 

End If

 

Next

 

GetPartNumber = Replace(GetPartNumber, strCustomer, vbNullString)

 

End Function

---

[Mick from CNC Software Inc.]

Replace the Msgbox calls with ShowString()

 

code:

---

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

 

Sub Main()

 

ShowString(GetCustomer("Z:companynameprogramsourceptogram.mcx"))

ShowString(GetPartNumber("Z:companynameprogramsourceprogram.mcx"))

 

End Sub

 

 

Function GetCustomer(strQualifiedPath)

 

Dim intN

 

For intN = 4 To Len(strQualifiedPath)

If Mid(strQualifiedPath,intN,1) = "" Then

Exit For

Else

GetCustomer = GetCustomer & Mid(strQualifiedPath,intN,1)

End If

 

Next

 

End Function

 

 

Function GetPartNumber(strQualifiedPath)

 

Dim intN

Dim intCount

Dim strCustomer

 

strCustomer = GetCustomer(strQualifiedPath)

 

For intN = 4 To Len(strQualifiedPath)

 

If Mid(strQualifiedPath,intN,1) = "" Then

intCount = intCount + 1

 

If intCount = 2 Then

Exit For

End If

 

Else

 

GetPartNumber = GetPartNumber & Mid(strQualifiedPath,intN,1)

 

End If

 

Next

 

GetPartNumber = Replace(GetPartNumber, strCustomer, vbNullString)

 

End Function

---

[connormac]

Ok thanks for all the help. Please don't shoot me. I am trying to figure this out. I have to change my show string line from this

ShowString(GetCustomer("Z:companynameprogramsourceptogram.mcx"))

ShowString(GetPartNumber("Z:companynameprogramsourceprogram.mcx"))

 

To this:

 

ShowString(GetCustomer("WAIKIKIMSProgramscompanynameprogramsourceprogram.mcx"))

ShowString(GetPartNumber("WAIKIKIMSProgramscompanynameprogramsourceprogram.mcx"))

 

will this mess up the rest of the statments.

 

Also I'm getting an "end if" error?

[Exodus]

Post your code like here: http://xodus.pastebin.ca/new.php and do VB.NET highlighting so we can read it better You're IDE should give you the line where there error is and everything?

 

I'm a C# guy but to replace string / char's I would do (This is implying that is an escape character like in C#, if it's not, you don't have to use 2 and 4!)

code:

---

foo = GetCustomer.ToString;

 

foo = foo.Replace("","");

---

[connormac]

I put it where you said to put it. This is a multi-post vbs. It worked already but you would have to type in the customer name and part num,ber every time you ran the script.