f_g1348
چهارشنبه 21 تیر 1391, 09:04 صبح
با سلام
دوستان در برنامه من یک textbox وجود دارد که کاربر درون آن چند جمله فارسی می ریزد و سپس می خواهم در این متن کلمات یکتا مشخص شده و سپس تعداد هر کدام در هر جمله شمارش شود .
راه کار پیشنهادی خودم این است که کلمات را درون آرایه ریخته و تک تک با هم مقایسه کنم و به جای تکراری ها فضای خالی بگذارم ( البته تا قبل از نقطه )
در vb.net به اینصورت می نوشتم
'شمارش تعداد كلمات يكتا در كل متن جهت تعريف ماتريس شباهت
counter = 0 ' شمارنده تعداد كلمات
For j = 0 To word_count
temp1 = arr1(j)
If temp1 <> "" And temp1 <> "." Then
counter += 1 ' نقطه را هم مي شمارد
sim_tem(counter - 1) = temp1 ' ليستي از كلمات يكتا در متن
For i = j + 1 To word_count
If arr1(i) <> "" Then
If temp1 = arr1(i) Then
arr1(i) = ""
End If
End If
Next i
End If
Next j
حال اگر کسی راه دیگری و بهتری می داند ممنون میشم راهنمایی کند
دوستان در برنامه من یک textbox وجود دارد که کاربر درون آن چند جمله فارسی می ریزد و سپس می خواهم در این متن کلمات یکتا مشخص شده و سپس تعداد هر کدام در هر جمله شمارش شود .
راه کار پیشنهادی خودم این است که کلمات را درون آرایه ریخته و تک تک با هم مقایسه کنم و به جای تکراری ها فضای خالی بگذارم ( البته تا قبل از نقطه )
در vb.net به اینصورت می نوشتم
'شمارش تعداد كلمات يكتا در كل متن جهت تعريف ماتريس شباهت
counter = 0 ' شمارنده تعداد كلمات
For j = 0 To word_count
temp1 = arr1(j)
If temp1 <> "" And temp1 <> "." Then
counter += 1 ' نقطه را هم مي شمارد
sim_tem(counter - 1) = temp1 ' ليستي از كلمات يكتا در متن
For i = j + 1 To word_count
If arr1(i) <> "" Then
If temp1 = arr1(i) Then
arr1(i) = ""
End If
End If
Next i
End If
Next j
حال اگر کسی راه دیگری و بهتری می داند ممنون میشم راهنمایی کند