Che, neuzheli i sdes` razmyto vyrazilsya???

Ответить

Если строка у тебя всегда имеет одно и тоже количество символов( т.е. одну и ту же длину, 10 знаков как в примере). И разбить тебе её надо на заранее известное количество групп символов, и с известным количеством символом в каждой группе... То решение более чем простое!! Используй функции Left , Right  Они возвращают указанное количество символов с указанной стороны.

Left$("mCiVgr~pE4",6) вернет тебе mCiVgr

если что не понятно, пиши.

Ответить

Stroka to u menya odinakovoj dliny vsegda.

Pro eti funkcii ya znal.

No mne vot che nado-to:

etu stroku razabrat` na chast`, tak chto by esli...koroche, objasnit` ne mogu, dam ishe 5 primerov, iz nih oinyatno budet.

Primey:

1#?-_+ CmA

SdYh5?_+ ~

xXx54#!1_+

VtR4#!?+ r

1237FgW#?+

Nadeyus` ponaytno ter` vyrazilsya

Ответить

Если честно, то не понятно! Я в ребусах не силён ))

Постарайся выразиться пояснее, по какому принципу необходимо разбить строку... И что заранее известно, есть ли общий принцип разбиения строки?

Ответить

Мож попробуй проверять следующий символ, и если он не имеет отношения к предыдыщуму, начинать все кидать в новую пееменную.

Ответить

2 gork:pravil`no, toka ya ne znayu kak((

Esli mogesh`-pomogi PLEASEEEE!!!

Ответить

Я попробую... щас как-раз работаю над строками хреновыми...

Ответить

uzhe ne nado, sam sdelal.

Ответить

куль. покаж!

Ответить

shasa napishu. Da, kstati-ya ego na ASP delal, t.k. v shkole VB netu.

A vot i kod:

<%

Dim rndNum as Integer, i as Integer

Dim strString as String

Dim strStr as String

Dim intArrayDividers(10) as Long

Dim strArrayStr(10) as String, intCurrentArray as Integer

Dim lngArray(10) as Long

strString="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-_!~#?+ "

strStr=""

Randomize (Timer)

rndNum=Int(Rnd * 69) + 1

strStr=Mid(strString,rndNum,1)

For i=2 To 10

rndNum=Int(Rnd * 69) + 1

strStr=strStr & Mid(strString,rndNum,1)

Next i

Response.Write ("Random-Generated String: " & strStr & "
")

'Divide into Array Parts

'

intCurrentArray=1

For i=1 To 10

Select Case Mid(strStr,i,1)

Case ("A") To ("Z"),("a") To ("z")

If i=1 Then

strArrayStr(intCurrentArray)=Mid(strStr,i,1)

Else

Select Case Mid(strStr,i-1,1)

Case ("A") To ("Z"),("a") To ("z")

strArrayStr(intCurrentArray)=strArrayStr(intCurrentArray) & Mid(strStr,i,1)

Case Else

intCurrentArray=intCurrentArray + 1

strArrayStr(intCurrentArray)=strArrayStr(intCurrentArray) & Mid(strStr,i,1)

End Select

End If

Case ("1"),("2"),("3"),("4"),("5"),("6"),("7"),("8"),("9"),("0")

If i=1 Then

strArrayStr(intCurrentArray)=Mid(strStr,i,1)

Else

Select Case Mid(strStr,i-1,1)

Case ("1"),("2"),("3"),("4"),("5"),("6"),("7"),("8"),("9"),("0")

strArrayStr(intCurrentArray)=strArrayStr(intCurrentArray) & Mid(strStr,i,1)

Case Else

intCurrentArray=intCurrentArray + 1

strArrayStr(intCurrentArray)=strArrayStr(intCurrentArray) & Mid(strStr,i,1)

End Select

End If

Case ("!"),("#"),("-"),("_"),("?"),(" "),("~"),("+")

If i=1 Then

strArrayStr(intCurrentArray)=Mid(strStr,i,1)

Else

Select Case Mid(strStr,i-1,1)

Case ("!"),("#"),("-"),("_"),("?"),(" "),("~"),("+")

strArrayStr(intCurrentArray)=strArrayStr(intCurrentArray) & Mid(strStr,i,1)

Case Else

intCurrentArray=intCurrentArray + 1

strArrayStr(intCurrentArray)=strArrayStr(intCurrentArray) & Mid(strStr,i,1)

End Select

End If

End Select

Next i

'Print the Array Parts

'

For i=1 To intCurrentArray

response.write ("Array Part #" & i & "  " & strArrayStr(i) & "
")

Next i

%>

Kak ya uzhe skazal, on na ASP sdelan(esli tochno, to ya ego v aspx fajle delal, no raznicy ya dumayunetu).

Na VB sam smozhesgi nadeyus` perevesti(tama vmesto response.write nado prosto pihat` v textboxy).

Udachi.

Ответить