Help with string conversion

[kloner]

Hi all :

I want to somehow split a string ("12,43&quot and set two variables.

eg.

Dim m_strTemplate As String
Dim m_intTemplateID As Integer
Dim m_intColourSchemeID As Integer

m_strTemplate = "12,4"

' Split up the TemplateIDs
m_intTemplateID = "12"
m_intColourSchemeID = "4"

How do I do this?
kloner

 

[dpaulson]

m_intTemplateID = CInt(Left$(m_strTemplate, InStr(m_strTemplate, ",&quot - 1))

m_intColourSchemeID = CInt(Right$(m_strTemplate, Len(m_strTemplate) - InStr(m_strTemplate, ",&quot))

David Paulson

 

[JohnYingling]

Dim aryStr() as string
aryStr = Split(m_strTemplate,",")
If Ubound(aryStr) < 1 then 
    Redim Preserve aryStr(1)  
End if
m_intTemplateID = aryStr(0)
m_intColourSchemeID = aryStr(1)

http://WWW.VBCompare.Com

 

[Guest_imported]

you first take a string
count the no of characters in it
after that check from first character to end character
if the character match "," then split in to the different
names

'prograM STARTS
' first is the first number i.e. string
' second is the second string

dim first as string
dim second as string
dim actual as string
dim i as integer
dim n as integer
actual="12,13"
n= len(actual)
first=""
for i = 1 to n
if mid$(actual,i,1) = "," then
second = mid$(actual,i+1,n-i)
exit for
else
first=first+mid$(actual,i,1)
endif
next i

' it works succesfully pl inform me shanmugham@hotmail.com