Visual Basic

Is there a general way to check a string...

28-May-04 9:25

There is a C program example somewhere in the Program Files\Matlab folder. Good luck translating that into VB6 code...

You'll be much better off doing it with a MATLAB COM component. You can start the the documentation on MATLAB's COM/DDE support here[^]. Specifically, you're look for the External Interfaces/API Reference.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

viettho28-May-04 7:30

viettho

28-May-04 7:30

Is there a general way to check if an if statement is semantically correct in vb.net?. For example:

Checking this:
input string:
Cost = 20 + Quantity - Discount and Cost = 49

or it could be:

Cost = 20 * Quantity / Discount and Cost = 49

Note that Cost, Quantity, and Discount is an integer variables.

Thanks in advance for your help.

John

Re: Is there a general way to check a string...

Dave Kreskowiak28-May-04 7:44

Re: Is there a general way to check a string...

28-May-04 7:44

This question doesn't have an answer until it's put into the context of how it's being used...

Are you saying that you want to check to see if this code is correct before being compiled? Or are you trying to parse this string and evalutate it?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

viettho28-May-04 8:36

viettho

28-May-04 8:36

Basically, the string is an if statement.
For example:

if Cost = 20 * Quantity / Discount and Cost = 49 then....

This is an input from user. And i'm trying to parse the string and check the "if" part only.

John

Re: Is there a general way to check a string...

Dave Kreskowiak28-May-04 9:12

VBA/Excel - Chart options

28-May-04 9:12

Let me get this straight... This is your VB.NET code and your trying to do something like this:

'Get some user input and put it in a variable.  Then evaluate the expression...
Dim strInput As String = "Cost = 20 * Quantity / Discount and Cost = 49"
EvaluateUserExpression(strInput)
.
.
.

Public Function EvaluateUserExpression(ByVal strExpression As String) As Boolean
    If strExpression Then
        Return True
    Else
        Return False
    End If
End Function

Now, if I understand you correctly, the Cost, Quantity, and Discount terms are actual variables inside your code. Correct?????

If this is true, then what you want to do can't be done using a simple if statement. You must parse up and validate the expression term-by-term and evaluate it along the way. You would ahve to check to see if the Cost/Quantity/Discount variables exist in your code, handle the equals signs and the operators yourself. You're looking for expression parsing techniques that, if covered in breif, are much too large to be taught over the forums.

Google for 'VB mathematical expression parser' and you'll come up with tons links on various articles, techniques, some source code...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Jon G28-May-04 7:19

Jon G

28-May-04 7:19

I'm generating charts with dynamic data. My problem is, my default chart options do not save when they are loaded onto another computer.

Can anyone tell me how to dynamically set chart options so that they will generate correctly on other computers?

(Chart type/series type/etc.)

I need to modify the X and Y Axis Scale
I need to modify the Chart Type
And various other chart options as such.

Dave Kreskowiak28-May-04 7:37

28-May-04 7:37

First, I don't remember ever seeing default chart options anywhere. When you create the Chart sheet, you pick stuff like chart type, data range, axis labels, ... Those are saved with the Chart sheet. Including the X and Y axis scales, chart type, ...

Are you saying that you are generating the Chart sheet from code? Is the workbook being saved AFTER the Chart sheet is made and you make the modifications to it? And when that workbook is loaded on another machine is the code for generating the Chart sheet being re-run? Is the old Chart sheet being deleted first? ...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Jon G28-May-04 8:09

Jon G

28-May-04 8:09

You can set the default Chart in chart type options.

I do not create the chart with the wizard, I create it strictly through code.

The workbook never gets deleted... Ever.
Charts are generated dynamically as data is entered. So it is ever changing

But besides that, I did figure it out. I found the options on the web after searching for quite a while.

If anyone is interested in the code, let me know and I will post it.

amit2530-May-04 23:11

amit25

30-May-04 23:11

Yes, i am intrested, please paste the code.

thanks

Jon G31-May-04 2:31

Jon G

31-May-04 2:31

Okay, here you go:
------------------------------------------------------

'***Create a new series for the chart object<br />
Function createSeries()<br />
    <br />
    Dim DataSource As Range<br />
    Dim DataRows As Long<br />
    Dim DataCols As Integer<br />
    Dim MyNewSrs As series<br />
    Dim valArray() As Double<br />
    Dim currentChart As String<br />
    Dim i As Integer<br />
    Dim chartName As String<br />
    Dim rowNumber As String<br />
    Dim offsetval As Integer<br />
    Dim modValue As Integer<br />
    Dim tempRows As Integer<br />
    <br />
    If tempRow = 6 Then<br />
        modValue = 6<br />
    ElseIf tempRow = 5 Then<br />
        modValue = 5<br />
    Else<br />
        Exit Function<br />
    End If<br />
    <br />
    offsetval = 0<br />
    i = 0<br />
    <br />
    Worksheets("Standards").Select<br />
    <br />
    'Get selection<br />
    Set DataSource = Selection<br />
    With DataSource<br />
        DataRows = .rows.Count<br />
        tempRows = DataRows<br />
        DataCols = .Columns.Count<br />
    End With<br />
    <br />
    ReDim valArray(0 To DataRows - 1)<br />
<br />
    'save values in an array<br />
    While DataRows <> 0<br />
        If Len(DataSource(i + 1)) > 2 Then<br />
            valArray(i - offsetval) = DataSource(i + 1) / standardValues((i - offsetval) Mod modValue)<br />
        Else<br />
            offsetval = offsetval + 1<br />
        End If<br />
        i = i + 1<br />
        DataRows = DataRows - 1<br />
    Wend<br />
    <br />
    i = 0<br />
    DataRows = tempRows<br />
   <br />
    'check values to see if they are in range for the chart<br />
    While DataRows <> 0<br />
        If valArray(i) > 1.2 Then<br />
            valArray(i) = 1.2<br />
        ElseIf valArray(i) < 0.8 Then<br />
            valArray(i) = 0.8<br />
        End If<br />
        <br />
        i = i + 1<br />
        DataRows = DataRows - 1<br />
    Wend<br />
    <br />
    Worksheets("Charts").Select<br />
    myChart.Select<br />
        <br />
    chartName = DataSource.Column<br />
    chartName = ConvertColumnNumberToLetter(chartName)<br />
    <br />
    rowNumber = DataSource.Row<br />
        <br />
    'plot values on the graph<br />
    With ActiveChart.SeriesCollection.NewSeries<br />
        .Name = (Worksheets("Standards").Range(chartName & "2"))<br />
        .Values = valArray<br />
        .XValues = Array(0, 1, 2, 3, 4, 5)<br />
    End With<br />
<br />
    'Format chart to make it look nice<br />
    myChart.Activate<br />
    ActiveChart.ChartType = xlXYScatter<br />
    <br />
    <br />
    ActiveChart.PlotArea.Select<br />
    With Selection.Border<br />
        .ColorIndex = 16<br />
        .Weight = xlThin<br />
        .LineStyle = xlContinuous<br />
    End With<br />
    With Selection.Interior<br />
        .ColorIndex = 2<br />
        .PatternColorIndex = 1<br />
        .Pattern = xlSolid<br />
    End With<br />
    ActiveChart.ChartArea.Select<br />
    With ActiveChart.Axes(xlCategory)<br />
        .HasMajorGridlines = True<br />
        .HasMinorGridlines = False<br />
    End With<br />
    With ActiveChart.Axes(xlValue)<br />
        .HasMajorGridlines = True<br />
        .HasMinorGridlines = False<br />
    End With<br />
    ActiveChart.HasLegend = False<br />
    ActiveChart.Axes(xlValue).Select<br />
    With ActiveChart.Axes(xlValue)<br />
        .MinimumScale = 0.8<br />
        .MaximumScale = 1.2<br />
        .MinorUnitIsAuto = True<br />
        .MajorUnitIsAuto = True<br />
        .Crosses = xlAutomatic<br />
        .ReversePlotOrder = False<br />
        .ScaleType = xlLinear<br />
        .DisplayUnit = xlNone<br />
    End With<br />
    Selection.TickLabels.NumberFormat = "0%"<br />
    ActiveChart.Axes(xlValue).MajorGridlines.Select<br />
    ActiveChart.PlotArea.Select<br />
    ActiveChart.Axes(xlCategory).Select<br />
    ActiveChart.Axes(xlValue).Select<br />
    With ActiveChart.Axes(xlValue)<br />
        .MinimumScale = 0.8<br />
        .MaximumScale = 1.2<br />
        .MinorUnitIsAuto = True<br />
        .MajorUnitIsAuto = True<br />
        .Crosses = xlCustom<br />
        .CrossesAt = 1<br />
        .ReversePlotOrder = False<br />
        .ScaleType = xlLinear<br />
        .DisplayUnit = xlNone<br />
    End With<br />
    ActiveChart.Axes(xlCategory).Select<br />
    With ActiveChart.Axes(xlCategory)<br />
        .MinorUnitIsAuto = True<br />
        .MajorUnit = 1<br />
        .MaximumScale = 5<br />
        .MinimumScale = 0<br />
        .Crosses = xlAutomatic<br />
        .ReversePlotOrder = False<br />
        .ScaleType = xlLinear<br />
        .DisplayUnit = xlNone<br />
    End With<br />
    Selection.TickLabels.AutoScaleFont = True<br />
    With Selection.TickLabels.Font<br />
        .Name = "Arial"<br />
        .FontStyle = "Regular"<br />
        .Size = 1<br />
        .Strikethrough = False<br />
        .Superscript = False<br />
        .Subscript = False<br />
        .OutlineFont = False<br />
        .Shadow = False<br />
        .Underline = xlUnderlineStyleNone<br />
        .ColorIndex = xlAutomatic<br />
        .Background = xlAutomatic<br />
    End With<br />
    ActiveChart.SeriesCollection(1).Select<br />
    With Selection.Border<br />
        .Weight = xlHairline<br />
        .LineStyle = xlNone<br />
    End With<br />
    With Selection<br />
        .MarkerBackgroundColorIndex = 3<br />
        .MarkerForegroundColorIndex = 9<br />
        .MarkerStyle = xlSquare<br />
        .Smooth = False<br />
        .MarkerSize = 4<br />
        .Shadow = False<br />
    End With<br />
<br />
End Function

file size...

Night_Soul28-May-04 5:10

Night_Soul

28-May-04 5:10

Hello to all.. Wink | ;)

I am doing a program that a time carried out some operations on the pc. ..creates a txt in which contains some info on the procedure...

And here all outcome ok. ...

The problem is that when the file is compiled, I should send it to a server....but to make this I should await that the file is concluded.

Now I wonder: I know that until the end of the procedure the file size is 0 KB and a time concluded, it is immediatly replenished in approximately 300 KB... it's possible to establish (maybe with a loop...), until the file size is equal to 0 KB ---> do ACTION 1; when the same file is DIFFERENT from 0 KB (does not matter myself how much is big. ..) then do ACTION 2......

It is possible in your opinion?

Thanks to all.. Wink | ;)

Night Soul!!!

Dave Kreskowiak28-May-04 5:55

28-May-04 5:55

Let me see if I understand you...

You want to monitor the size of a file, and based on its size, you want to determine if it's safe to copy the file to another server and then erase the file and let the other app recreate it.

Correct? It's possible... but a questionable technique.

A better method would be to try and rename the file constantly. If the file is open, the rename will fail. When the rename finally succeed's, you accomplish two things. One, the file is immediately taken out of the way of the other application, freeing it to create another one. Second, you now have exclusive rights to the renamed file because the other applications know nothing of the new name. You are free to do whatever you want with this renamed file, like copy it to a server, and if the server is not available at the time of the copy, store the file locally to be copied up later.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Night_Soul30-May-04 21:02

Night_Soul

30-May-04 21:02

I don't want to make exactly what you mean....
I Try to explain me..... Blush | :O

I must upload a file on a server....but the process that create it use a few minutes to conclude the file....
I try all the way I now...but at a certain point there is an error..."the file is being used from another process"...

I must know exactly when the procedure terminate....

It was for this reason that had thought to do a loop that until the file size is = 0 do ACTION 1, instead when the file is full you do ACTION 2..

Excuse me again for my bad english....but can you understand me now?

I hope.... Smile | :)

tynx a lot..... Big Grin | :-D

Night Soul!!!

Dave Kreskowiak31-May-04 0:51

31-May-04 0:51

What is ACTION1 and ACTION2?

If the file is opened by the process exclusively, there won't be any ACTION on the file until the other process closes it. Just checking the file size is not a good of that. The file sits at zero until the app and the O/S flushes it's buffers, but the app doesn't have to close the file to do that. The file size will rise, but will still be open by the app...

That's why I say you have to try and open the file to determine when it is actually closed by the other app. Until the other app closes it, you WILL get "the file is being used by another process", or an Exception, that you must handle in your code in order to find out when the other process closes the file.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Night_Soul31-May-04 2:33

Night_Soul

31-May-04 2:33

I paste the loop I have in mind...Why it does not work? Confused | :confused:

Sub LoopSize()

Dim i As Integer
i = 0
Const FILE_SIZE = FILE_PC_INFO
Dim Peso_File As FileInfo

For i = 0 To 0
If FILE_SIZE.Length = 0 Then
Thread.Sleep(3000)
Else
MsgBox("THE FILE IS COMPILED!!!")
Thread.Sleep(3000)
i = i + 1
End If
Next

End Sub ' LoopSize

*** FILE_PC_INFO is myinformationsfile.txt ***

does it help understand me? Wink | ;)

Night Soul!!!

Serge Lobko-Lobanovsky31-May-04 23:27

Serge Lobko-Lobanovsky

31-May-04 23:27

Your loop does not execute. If you need a loop the executes forever, use

Do While True<br />
   ' check file size here<br />
   ' ...<br />
   ' *****<br />
<br />
   If FILE_SIZE.Length = 0 Then<br />
      Thread.Sleep(3000)<br />
   Else<br />
      MsgBox("THE FILE IS COMPILED!!!")<br />
      Exit Do<br />
   End If<br />
Loop

Regards,
Serge (Logic Software, Easy Projects .NET site)