VBScript - разбиване низ на части
3 отговора
50 прегледа
VBScript - разбиване низ на части
Първо, извинявам се, ако тук не е място за VBScript въпроси.
Сигурно въпросът ми е елементарен, но се занимавам съвсем отгоре с VBScript и нямам особени познания. Та значи, как мога да разбия подаден низ на поднизове според някакъв разделител? По-конкретно, имам низ "име фамилия" като разделителят е 1 интервалче и искам да извлека името и фамилията.
Мерси предварително.
Сигурно въпросът ми е елементарен, но се занимавам съвсем отгоре с VBScript и нямам особени познания. Та значи, как мога да разбия подаден низ на поднизове според някакъв разделител? По-конкретно, имам низ "име фамилия" като разделителят е 1 интервалче и искам да извлека името и фамилията.
Мерси предварително.
Re: VBScript - разбиване низ на части
Мога да ти кажа как може да се направи на excel, ако можеш да вземеш някаква идея добре, ако не
. Може да не съм го направил по най простия начин, но това ми дойде на акъл на първо четене.
И така да кажем, че в клетка А1 ти е името направи следния макрос.
Sub nestosi()
Dim a, c, ime, familia As String
a = Cells(1, 1)
For i = 1 To 30
c = Mid(a, i, 1)
If c = " " Then b = i
Next
ime = Left(a, b - 1)
l = Len(a)
familia = Right(a, l - b)
Cells(1, 5) = ime
Cells(1, 6) = familia
End Sub
Нататък го разтълкувай.
И така да кажем, че в клетка А1 ти е името направи следния макрос.
Sub nestosi()
Dim a, c, ime, familia As String
a = Cells(1, 1)
For i = 1 To 30
c = Mid(a, i, 1)
If c = " " Then b = i
Next
ime = Left(a, b - 1)
l = Len(a)
familia = Right(a, l - b)
Cells(1, 5) = ime
Cells(1, 6) = familia
End Sub
Нататък го разтълкувай.
Re: VBScript - разбиване низ на части
myArray = Split(fullNameVariable, " ")
MsgBox "First Name: " & myArray(0) & vbNewLine & "Last Name: " & myArray(1)
Епа, това е моето хоби... [линк]
MsgBox "First Name: " & myArray(0) & vbNewLine & "Last Name: " & myArray(1)
Епа, това е моето хоби... [линк]
Re: VBScript - разбиване низ на части
Мерси много. Точно такава функция split ми трябваше.