Need to convert a number from a parsed Arabic sentence to a number

[Nineball]

After parsing an Arabic sentence that contains a number, the number appears at the right hand side of the cell. I believe the number appears as text. Any formula on the cell results in #VALUE.
I haven't found any function that will change it to a number. Any suggestions? thanks

 

[KRice]

Interesting. I wonder if regional settings and using "." or "," as decimal separators might be contributing to the problem. In any case, let me know if you have any luck with the VBA code and approach in post #37. Do you know how to set up the VBA code? Alt-F11 and then Insert Module and paste the VBA code, then Close and Return to Excel.

About your question D14/E11...sorry, I copied the original text into a few different cells to experiment (both E11 and E14). Here's a better copy.

Book4
	A	B	C	D	E
13	1st number	2nd number		Modified Excerpt	Original
14	1	17		1Z17	1:17.‏ خۇدا بۇلارنى يەرگە يورۇقلۇق بېرىپ، كۈندۈز بىلەن كېچىنى باشقۇرۇپ، يورۇقلۇق بىلەن قاراڭغۇلۇقنى ئايرىسۇن دەپ ئاسمانلارنىڭ گۈمبىزىگە ئورۇنلاشتۇردى. خۇدا بۇنىڭ ياخشى بولغانلىقىنى كۆردى.
Sheet5

Cell Formulas
Range	Formula
A14	A14	=LEFT(D14,FIND("Z",D14)-1)+0
B14	B14	=RIGHT(D14,LEN(D14)-FIND("Z",D14))+0
D14	D14	=AlphaNumericOnly(SUBSTITUTE(E14,":","Z"))

Function AlphaNumericOnly(strSource As String) As String
    Dim i As Integer
    Dim strResult As String

    For i = 1 To Len(strSource)
        Select Case Asc(Mid(strSource, i, 1))
            Case 48 To 57, 65 To 90, 97 To 122: 'include 32 if you want to include space
                strResult = strResult & Mid(strSource, i, 1)
        End Select
    Next
    AlphaNumericOnly = strResult
End Function

 

[KRice]

I tried out my suggestion on your uploaded file (see columns F:H) and encountered one issue when the original text contains multiple colons (which are then substituted with the letter "Z"). Here is a revision that replaces any Z's at the end of the excerpted string with nothing...and that seems to resolve the issue. Larger scale testing might be helpful to confirm that it's working okay.

Mr. Excel Question.xlsx
	E	F	G	H
1	Text	Modified Excerpt	1st #	2nd #
2	1:15 ئۇلار ئاسمانلاردا تۇرۇپ نۇر چىقارغۇچى بولۇپ، يەر يۈزىگە يورۇقلۇق بەرسۇن!» دېۋىدى، دەل شۇنداق بولدى.	1Z15	3	15
3	1:16 خۇدا ئىككى چوڭ نۇر چىقارغۇچى جىسىمنى ياراتتى؛ چوڭ نۇر چىقارغۇچىنى كۈندۈزنى باشقۇرىدىغان، كىچىك نۇر چىقارغۇچنى كېچىنى باشقۇرىدىغان قىلدى. ھەمدە يەنە يۇلتۇزلارنىمۇ ياراتتى.	1Z16	1	16
4	1:17‏ خۇدا بۇلارنى يەرگە يورۇقلۇق بېرىپ، كۈندۈز بىلەن كېچىنى باشقۇرۇپ، يورۇقلۇق بىلەن قاراڭغۇلۇقنى ئايرىسۇن دەپ ئاسمانلارنىڭ گۈمبىزىگە ئورۇنلاشتۇردى. خۇدا بۇنىڭ ياخشى بولغانلىقىنى كۆردى.	1Z17	1	17
5	1:19 شۇ تەرىقىدە كەچ بىلەن سەھەر ئۆتتى، بۇ تۆتىنچى كۈن بولدى.	1Z19	1	19
6	5:27 مەتۇشەلاھ جەمئىي توققۇز يۈز ئاتمىش توققۇز يىل كۈن كۆرۈپ، ئالەمدىن ئۆتتى.	5Z27	5	27
7	5:28 لەمەخ بىر يۈز سەكسەن ئىككى ياشقا كىرگەندە بىر ئوغۇل تېپىپ، ئۇنىڭ ئىسمىنى نۇھ ئاتاپ: ــ پەرۋەردىگار تۇپراققا لەنەت قىلدى؛ شۇڭا بىز [يەرگە] ئىشلىگىنىمىزدە ھەمدە قوللىرىمىزنىڭ جاپالىق ئەمگىكىدە بۇ بالا بىزگە تەسەللى بېرىدۇ، ــ دېدى.	5Z28Z	5	28
8	5:30 نۇھ تۇغۇلغاندىن كېيىن لەمەخ بەش يۈز توقسان بەش يىل ئۆمۈر كۆرۈپ، ئۇنىڭدىن يەنە ئوغۇل-قىزلار تۆرەلدى.	5Z30	5	30
9	7:7 توپاندىن [قۇتۇلۇپ قېلىش] ئۈچۈن نۇھ بىلەن ئوغۇللىرى، ئايالى ۋە كېلىنلىرى بىللە كېمىگە كىردى.	7Z7	7	7
10	7:8‏ ھالال ھايۋانلار بولسۇن، ھارام ھايۋانلار بولسۇن، قۇشلار بىلەن يەردە ئۆمىلىگۈچى جانىۋارلار بولسۇن، [ھەربىر تۈردىن] بىر جۈپ-بىر جۈپتىن ئەركەك-چىشى بولۇپ، خۇدا نۇھقا بۇيرۇغاندەك كېمىگە، نۇھنىڭ قېشىغا كىردى.	7Z8	7	8
11	7:10 ۋە شۇنداق بولدىكى، يەتتە كۈندىن كېيىن، يەر يۈزىنى توپان بېسىشقا باشلىدى.	7Z10	7	10
12	7:11 نۇھنىڭ ئۆمرىنىڭ ئالتە يۈزىنچى يىلى، ئىككىنچى ئېيىنىڭ ئون يەتتىنچى كۈنىدە چوڭقۇر دېڭىزلارنىڭ تەگلىرىدىكى بارلىق بۇلاقلار يېرىلىپ، ئاسماننىڭ پەنجىرىلىرى ئېچىلىپ كەتتى.	7Z11	7	11
13	7:12 يامغۇر ئۇدا قىرىق كېچە-كۈندۈز يەر يۈزىگە توختىماي ياغدى.	7Z12	7	12
Example

Cell Formulas
Range	Formula
F2:F13	F2	=AlphaNumericOnly(SUBSTITUTE(E2,":","Z"))
H2:H13	H2	=SUBSTITUTE(RIGHT(F2,LEN(F2)-FIND("Z",F2)),"Z","")+0
G3:G13	G3	=LEFT(F3,FIND("Z",F3)-1)+0

 

[Akuini]

I've checked your sample file.
Numbers in column D, some of them have spaces at the end & others have unicode character namely ChrW(8207)

To trim the space, use this code:

Sub to_Trim()

With Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row)   'change to suit
    .Value = Application.Trim(.Value)
End With

End Sub

to remove the ChrW(8207) character, use this:

Sub remove_8207()
Dim c As Range, x
Application.ScreenUpdating = False
x = ChrW(8207)
With Range("D:D")   'change to suit
Set c = .Find(What:=x, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

    If Not c Is Nothing Then
        sAddress = c.Address
        Do
           Set c = .FindNext(c)
           c = Replace(c, x, "")
        Loop While Not c Is Nothing And c.Address <> sAddress
    End If
End With
Application.ScreenUpdating = True
End Sub

you may change the range reference to suit.

 

[Nineball]

Thank you both. I'll try these tomorrow and let you know

 

[KRice]

After looking at this again, an easier way to insert just one "Z" character to act as a string splitting delimiter (to replace the colon) is to utilize the 4th argument in the SUBSTITUTE function, and since the numbers you would like to extract appear at one end of the string, this should work reliably. Any other colons in the string will remain and will then be removed by the VBA script. And to split the excerpted text at the "Z" delimiter, I've incorporated a Splitter function in the VBA code to automatically deliver the two numbers:

Mr. Excel Question.xlsm
	E	F	G
1	1st#	2nd#	Text
2	1	15	1:15 ئۇلار ئاسمانلاردا تۇرۇپ نۇر چىقارغۇچى بولۇپ، يەر يۈزىگە يورۇقلۇق بەرسۇن!» دېۋىدى، دەل شۇنداق بولدى.
3	1	16	1:16 خۇدا ئىككى چوڭ نۇر چىقارغۇچى جىسىمنى ياراتتى؛ چوڭ نۇر چىقارغۇچىنى كۈندۈزنى باشقۇرىدىغان، كىچىك نۇر چىقارغۇچنى كېچىنى باشقۇرىدىغان قىلدى. ھەمدە يەنە يۇلتۇزلارنىمۇ ياراتتى.
4	1	17	1:17‏ خۇدا بۇلارنى يەرگە يورۇقلۇق بېرىپ، كۈندۈز بىلەن كېچىنى باشقۇرۇپ، يورۇقلۇق بىلەن قاراڭغۇلۇقنى ئايرىسۇن دەپ ئاسمانلارنىڭ گۈمبىزىگە ئورۇنلاشتۇردى. خۇدا بۇنىڭ ياخشى بولغانلىقىنى كۆردى.
5	1	19	1:19 شۇ تەرىقىدە كەچ بىلەن سەھەر ئۆتتى، بۇ تۆتىنچى كۈن بولدى.
6	5	27	5:27 مەتۇشەلاھ جەمئىي توققۇز يۈز ئاتمىش توققۇز يىل كۈن كۆرۈپ، ئالەمدىن ئۆتتى.
7	5	28	5:28 لەمەخ بىر يۈز سەكسەن ئىككى ياشقا كىرگەندە بىر ئوغۇل تېپىپ، ئۇنىڭ ئىسمىنى نۇھ ئاتاپ: ــ پەرۋەردىگار تۇپراققا لەنەت قىلدى؛ شۇڭا بىز [يەرگە] ئىشلىگىنىمىزدە ھەمدە قوللىرىمىزنىڭ جاپالىق ئەمگىكىدە بۇ بالا بىزگە تەسەللى بېرىدۇ، ــ دېدى.
8	5	30	5:30 نۇھ تۇغۇلغاندىن كېيىن لەمەخ بەش يۈز توقسان بەش يىل ئۆمۈر كۆرۈپ، ئۇنىڭدىن يەنە ئوغۇل-قىزلار تۆرەلدى.
9	7	7	7:7 توپاندىن [قۇتۇلۇپ قېلىش] ئۈچۈن نۇھ بىلەن ئوغۇللىرى، ئايالى ۋە كېلىنلىرى بىللە كېمىگە كىردى.
10	7	8	7:8‏ ھالال ھايۋانلار بولسۇن، ھارام ھايۋانلار بولسۇن، قۇشلار بىلەن يەردە ئۆمىلىگۈچى جانىۋارلار بولسۇن، [ھەربىر تۈردىن] بىر جۈپ-بىر جۈپتىن ئەركەك-چىشى بولۇپ، خۇدا نۇھقا بۇيرۇغاندەك كېمىگە، نۇھنىڭ قېشىغا كىردى.
11	7	10	7:10 ۋە شۇنداق بولدىكى، يەتتە كۈندىن كېيىن، يەر يۈزىنى توپان بېسىشقا باشلىدى.
12	7	11	7:11 نۇھنىڭ ئۆمرىنىڭ ئالتە يۈزىنچى يىلى، ئىككىنچى ئېيىنىڭ ئون يەتتىنچى كۈنىدە چوڭقۇر دېڭىزلارنىڭ تەگلىرىدىكى بارلىق بۇلاقلار يېرىلىپ، ئاسماننىڭ پەنجىرىلىرى ئېچىلىپ كەتتى.
13	7	12	7:12 يامغۇر ئۇدا قىرىق كېچە-كۈندۈز يەر يۈزىگە توختىماي ياغدى.
Example (2)

Cell Formulas
Range	Formula
E2:F13	E2	=Splitter(AlphaNumericOnly(SUBSTITUTE(G2,":","Z",1)),"Z")
Dynamic array formulas.

The revised functions: AlphaNumericOnly for excerpting the desired text with a "Z" delimiter, and Splitter for splitting the excerpted text into separate columns.

Function AlphaNumericOnly(strSource As String) As String
    Dim i As Integer
    Dim strResult As String

    For i = 1 To Len(strSource)
        Select Case Asc(Mid(strSource, i, 1))
            Case 48 To 57, 65 To 90, 97 To 122: 'include 32 if you want to include space
                strResult = strResult & Mid(strSource, i, 1)
        End Select
    Next
    AlphaNumericOnly = strResult
End Function

Function Splitter(Data As String, Separator As String) As String()
On Error Resume Next
Splitter = Split(Data, Separator)
On Error GoTo 0
End Function

 

[Akuini]

I have written a code to extract numbers from the text in column D and place the results in columns B:C.
Using this method, there are no Unicode characters being included.

Sub get_number_1()
Dim va, vb
Dim Matches As Object
va = Range("D2", Cells(Rows.Count, "D").End(xlUp))
ReDim vb(1 To UBound(va, 1), 1 To 2)
With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "[0-9]+"
        For i = 1 To UBound(va, 1)
            If .test(va(i, 1)) Then
                Set Matches = .Execute(va(i, 1))
                If Matches.Count = 2 Then
                    vb(i, 1) = Matches.Item(0)
                    vb(i, 2) = Matches.Item(1)
                End If
            End If
        Next
End With
'put the result in col B:C
Range("B2").Resize(UBound(vb, 1), 2) = vb
End Sub

Result in col B:C

Nineball - Mr. Excel Question 1.xlsm
	B	C	D
1			Text
2	1	15	1:15 ئۇلار ئاسمانلاردا تۇرۇپ نۇر چىقارغۇچى بولۇپ، يەر يۈزىگە يورۇقلۇق بەرسۇن!» دېۋىدى، دەل شۇنداق بولدى.
3	1	16	1:16 خۇدا ئىككى چوڭ نۇر چىقارغۇچى جىسىمنى ياراتتى؛ چوڭ نۇر چىقارغۇچىنى كۈندۈزنى باشقۇرىدىغان، كىچىك نۇر چىقارغۇچنى كېچىنى باشقۇرىدىغان قىلدى. ھەمدە يەنە يۇلتۇزلارنىمۇ ياراتتى.
4	1	17	1:17‏ خۇدا بۇلارنى يەرگە يورۇقلۇق بېرىپ، كۈندۈز بىلەن كېچىنى باشقۇرۇپ، يورۇقلۇق بىلەن قاراڭغۇلۇقنى ئايرىسۇن دەپ ئاسمانلارنىڭ گۈمبىزىگە ئورۇنلاشتۇردى. خۇدا بۇنىڭ ياخشى بولغانلىقىنى كۆردى.
5	1	19	1:19 شۇ تەرىقىدە كەچ بىلەن سەھەر ئۆتتى، بۇ تۆتىنچى كۈن بولدى.
6	5	27	5:27 مەتۇشەلاھ جەمئىي توققۇز يۈز ئاتمىش توققۇز يىل كۈن كۆرۈپ، ئالەمدىن ئۆتتى.
7	5	28	5:28 لەمەخ بىر يۈز سەكسەن ئىككى ياشقا كىرگەندە بىر ئوغۇل تېپىپ، ئۇنىڭ ئىسمىنى نۇھ ئاتاپ: ــ پەرۋەردىگار تۇپراققا لەنەت قىلدى؛ شۇڭا بىز [يەرگە] ئىشلىگىنىمىزدە ھەمدە قوللىرىمىزنىڭ جاپالىق ئەمگىكىدە بۇ بالا بىزگە تەسەللى بېرىدۇ، ــ دېدى.
8	5	30	5:30 نۇھ تۇغۇلغاندىن كېيىن لەمەخ بەش يۈز توقسان بەش يىل ئۆمۈر كۆرۈپ، ئۇنىڭدىن يەنە ئوغۇل-قىزلار تۆرەلدى.
9	7	7	7:7 توپاندىن [قۇتۇلۇپ قېلىش] ئۈچۈن نۇھ بىلەن ئوغۇللىرى، ئايالى ۋە كېلىنلىرى بىللە كېمىگە كىردى.
10	7	8	7:8‏ ھالال ھايۋانلار بولسۇن، ھارام ھايۋانلار بولسۇن، قۇشلار بىلەن يەردە ئۆمىلىگۈچى جانىۋارلار بولسۇن، [ھەربىر تۈردىن] بىر جۈپ-بىر جۈپتىن ئەركەك-چىشى بولۇپ، خۇدا نۇھقا بۇيرۇغاندەك كېمىگە، نۇھنىڭ قېشىغا كىردى.
11	7	10	7:10 ۋە شۇنداق بولدىكى، يەتتە كۈندىن كېيىن، يەر يۈزىنى توپان بېسىشقا باشلىدى.
12	7	11	7:11 نۇھنىڭ ئۆمرىنىڭ ئالتە يۈزىنچى يىلى، ئىككىنچى ئېيىنىڭ ئون يەتتىنچى كۈنىدە چوڭقۇر دېڭىزلارنىڭ تەگلىرىدىكى بارلىق بۇلاقلار يېرىلىپ، ئاسماننىڭ پەنجىرىلىرى ئېچىلىپ كەتتى.
13	7	12	7:12 يامغۇر ئۇدا قىرىق كېچە-كۈندۈز يەر يۈزىگە توختىماي ياغدى.
Sheet3