PDA

View Full Version : سوال: اجرای text!!!!!!



hooooman
سه شنبه 15 دی 1388, 14:43 عصر
سلام
میخاستم ببینم میشه 1 عبارتی مثل این رو اجرا کرد و حاصلش رو بدست آورد؟


str = "200*300"

gh-reza
سه شنبه 15 دی 1388, 18:20 عصر
اگر قالبتون مشخص باشه چراکه نه. کافی رشته خودتونو توی یه حلقه for پردازش کرده و اجزای سازندش رو جدا کرده و محاسبات رو انجام بدین. مثلا من برای گردازشی با فرمت زیر


A 05 01 12 {1:1,4:2,2:1,1:3,3:1,5:4}

برنامه زیر رو نوشتم


Public Name As String
Public Size As Integer
Public StartingTime As Integer
Public RunningTime As Integer
Public Pages As ArrayList
Public Sub Parser(prc As String)
Trim(prc)
' Set Name of process
Me.Name = ""
Dim i As Integer
While i < prc.Length And prc(i) <> " "
Me.Name = Me.Name & prc(i)
i = i + 1
End While
i = i + 1
' Set Size of process
Dim str As String = ""
While i < prc.Length And prc(i) <> " "
str = str & prc(i)
i = i + 1
End While
Me.Size = Val(str)
i = i + 1
' Set Starting time of process
str = ""
While i < prc.Length And prc(i) <> " "
str = str & prc(i)
i = i + 1
End While
Me.StartingTime = Val(str)
i = i + 1
' Set Running time of process
str = ""
While i < prc.Length And prc(i) <> " "
str = str & prc(i)
i = i + 1
End While
Me.RunningTime = Val(str)
i = i + 1
' Enumerate the number of pages of process by enumerating the number of ':' character
Dim PageCount As Integer = 0
Dim j As Integer = i
While j < prc.Length
If prc(j) = ":" Then
PageCount = PageCount + 1
End If
j = j + 1
End While
str = ""
Dim P As Integer = 0
Dim N As Integer = 0
Dim RT As Integer = 0
Pages = New ArrayList()
While i < prc.Length
Select Case prc(i)
Case ",", "}"
RT = RT + Val(str)
Dim PI As PageInfo = New PageInfo(N, RT)
Pages.Add(PI)
str = ""
P = P + 1
Case ":"
N = Val(str)
str = ""
Case "0" To "9"
str = str & prc(i)
End Select
i = i + 1
End While
end sub

Computer.Programmer
سه شنبه 15 دی 1388, 18:30 عصر
اگر قالبتون مشخص باشه چراکه نه. کافی رشته خودتونو توی یه حلقه for پردازش کرده و اجزای سازندش رو جدا کرده و محاسبات رو انجام بدین.

منم با این دوستمون موافقم ولی اگه منظور شما اجرای کد به صورت RunTime باشه باید خدمتتون بگم که با استفاده از CodeDom می تونید این کارو انجام بدین.


موفق باشید

hooooman
سه شنبه 15 دی 1388, 18:39 عصر
سلام
ببینین
اینجوری تصور کنین که چندین فرمول ریاضی در جدول ذخیره شده
با فرممت Nvarchar
حالا ممکنه پیچیدگی فرمول بیشتر از این مثال که گفتم هم باشه که باید بجای متغیرش مقدار قرار بگیره و نتیجه نمایش داده بشه

hooooman
سه شنبه 15 دی 1388, 23:52 عصر
سلام
آقا پیداش کردم: