Just add '.' to the pattern specifier:
> MyString <- "ABCFR34564IJVEOJC3434.16ABC123.456KJHLKJH23452345AAA"
> # translate to the pattern sequences
> x <- chartr('ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.'
+ , '0000000000000000000000000011111111111'
+ , MyString
+ )
> x.rle <- rle(strsplit(x, '')[[1]]) # determine the runs
> # create extraction matrix
> x.ext <- cbind(cumsum(c(1, head(x.rle$lengths, -1)))
+ , cumsum(x.rle$lengths)
+ )
> substring(MyString, x.ext[,1], x.ext[,2])
[1] "ABCFR" "34564" "IJVEOJC" "3434.16" "ABC" "123.456"
"KJHLKJH" "23452345" "AAA"
>
On Sun, Feb 13, 2011 at 2:07 PM, jim holtman <jholt...@gmail.com> wrote:
> If you have an indeterminate number of the patterns in the string, try
> the following:
>
>> MyString <- "ABCFR34564IJVEOJC3434"
>> # translate to the pattern sequences
>> x <- chartr('ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
> + , '000000000000000000000000001111111111'
> + , MyString
> + )
>> x.rle <- rle(strsplit(x, '')[[1]]) # determine the runs
>> # create extraction matrix
>> x.ext <- cbind(cumsum(c(1, head(x.rle$lengths, -1)))
> + , cumsum(x.rle$lengths)
> + )
>> substring(MyString, x.ext[,1], x.ext[,2])
> [1] "ABCFR" "34564" "IJVEOJC" "3434"
>>
>
>
> On Sun, Feb 13, 2011 at 10:27 AM, Megh Dal <megh700...@gmail.com> wrote:
>> Please consider following string:
>>
>> MyString <- "ABCFR34564IJVEOJC3434"
>>
>> Here you see that, there are 4 groups in above string. 1st and 3rd groups
>> are for english letters and 2nd and 4th for numeric. Given a string, how can
>> I separate out those 4 groups?
>>
>> Thanks for your time
>>
>> [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help@r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
>
>
> --
> Jim Holtman
> Data Munger Guru
>
> What is the problem that you are trying to solve?
>
--
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
