Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
Solved

# Insert Text

Posted on 2000-02-22
Medium Priority
155 Views
hi, i am trying to convert a group of numbers to follow a certain equation.

first i begin with the group of numbers, for example:
15-26 2-3 5-12 4 9 13 4 4 0 2 3 35

then i (would like to learn how to)convert this group of numbers into this:
15-26 0*2-0*3 5-12 0*4 0*9 13 4 0*4 0 -1*2 3 35

basically, what i'm doing is cancelling out the 2nd cluster of numbers (2-3), the 4th cluster (4), the 5th cluster (9) and changing 10th cluster (2) into a negative number.  the problem is i have absolutely no idea how to do this programmatically.

so i'm asking for the specific code on how to do this.  if i recieve the full code that will work out perfectly and exactly the way i like it, i will give you 450 PTS!!!!
0
Question by:llcoolmel
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 2
• 2

LVL 12

Expert Comment

ID: 2549454
Look for spaces using the instr function:

Private Sub Command1_Click()
Dim strDummy As String
Dim strResult As String
Dim i As Integer
Dim j As Integer
Dim last As Integer
'Text1 = a textbox containing your string

Text1 = " " & Text1 'create start point
strResult = ""
last = 1
Do
i = InStr(last, Text1, " ")
If i > 0 Then 'space found!
strDummy = Mid(Text1, i + 1) 'get it starting from the space+1
j = InStr(1, strDummy, " ") 'find end
If j > 0 Then strDummy = Left(strDummy, j - 1)
'now convert the result string
'you have to write that code, since i don't know when to change into what!
'the string to be converted is in strDummy so change that!
'after strDummy is converted:
strResult = strResult & strDummy & " "
If j = 0 Then Exit Do
last = j + last
Else
Exit Do
End If
Loop
Label1.Caption = strResult

End Sub

Good luck!

D'Mzzl!
RoverM
0

LVL 18

Expert Comment

ID: 2549572
Text can be manipulated in VB but I don't understand the reason for what you want to do.  How do you decide which bits get cancelled out?  Are you trying to evaluate mathematical equations?

We need some sort of rules behind what you want to do.

0

LVL 12

Expert Comment

ID: 2549761
deighton: that's why I described in my code:
'now convert the result string
'you have to write that code, since i don't know when to change into what!
'the string to be converted is in strDummy so change that!
'after strDummy is converted:

But the code works perfectly!

0

LVL 18

Expert Comment

ID: 2549838
Any code works perfectly if nobody knows what its meant to do.
0

LVL 96

Accepted Solution

Bob Learned earned 400 total points
ID: 2550267
Private Enum ProcessModeConstants
Cancel
Negate
End Enum

Dim sNumbers As String

Private Sub Main()

Debug.Print ProcessNumbers("15-26 2-3 5-12 4 9 13 4 4 0 2 3 35")

End Sub

Private Function ProcessNumbers(sList As String) As String

Dim sNumbers() As String

sNumbers = Split(sList)

Call ProcessCluster(sNumbers(1), Cancel)        '2nd cluster
Call ProcessCluster(sNumbers(3), Cancel)       '4th cluster
Call ProcessCluster(sNumbers(4), Cancel)       '5th cluster
Call ProcessCluster(sNumbers(9), Negate)      '10th cluster

ProcessNumbers = Join(sNumbers)

End Function

Private Sub ProcessCluster(sNumber As String, eMode As ProcessModeConstants)

Dim iDigit As Integer
Dim sDigits() As String
Dim sBuild As String

sDigits = Split(sNumber, "-")

For iDigit = 0 To UBound(sDigits)
sBuild = sBuild & IIf(eMode = Cancel, "0*", "-1*") & sDigits(iDigit) & "-"
Next iDigit

sNumber = Left(sBuild, Len(sBuild) - 1)

End Sub

0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
###### Suggested Courses
Course of the Month8 days, 20 hours left to enroll