یک مشکل عجیب در اسپلیت!!!

[Mitra_folati]

با سلام


من با این کد یک فایل متنی رو تجزیه می کنم.اما وقتی تجزیه می شه یک کارامتر به اولش اضافه میشه.که مشکل ساز میشه !!! چکار کنم؟


خواهشا سریع کمک کنید.


Dim varDXF() As String
Dim strDXF_Output As String


strDXF_Output = IO.File.ReadAllText(Application.StartupPath & "\" & "hhh.txt")

varDXF = Split(strDXF_Output, vbCrLf)




For intDXF = 0 To UBound(varDXF)


Dim ss As String
ss = Trim(varDXF(intDXF))


Next

[Alirezanet]

معذرت میخوام خواستم کمک کنم ولی متوجه نشدم کارامتر چی هست ؟! !:متفکر:

[Mitra_folati]

معذرت میخوام خواستم کمک کنم ولی متوجه نشدم کارامتر چی هست ؟! !:متفکر:

اکس کیوزمی. منظورم پارامتره.اگه از تابع لینگس استفاده کنید منتوجه میشید.

[مرتضی تقدمی]

سلام
الان شما دقیقا از این کدها چه نتیجه ای می خواین؟ داره تک تک خطوط فایل رو می خونه که اگه اون exit sub رو بردارید می تونید نتیجه رو با یک MsgBox(ss) ببینید. کجاش مشکل دارین؟

[Mitra_folati]

سلام
الان شما دقیقا از این کدها چه نتیجه ای می خواین؟ داره تک تک خطوط فایل رو می خونه که اگه اون exit sub رو بردارید می تونید نتیجه رو با یک MsgBox(ss) ببینید. کجاش مشکل دارین؟

exit sub جزء کدها نبود حذفش کردم.

مشکل ایجاست:

شما فرض کنید که داخل اون فایل تکستمون نوشتیم:
abcd
1234

و با vbcrlf تجزیش کردیم.حالا وقتی حلقه شروع به کار میکنه. می آد برای مقدار ss که باید abcd باشه رو درست نشون میده اما طول این نوشته رو که باید 4 باشه رو 5 نشون میده !!!!!!!

[quack]

من کد شمارو اجرا کردم و جواب رو درست نشون داد. احتمال میدم یک کاراکتر غیر اسکی توی فایلتون باشه. می‌شه فایلتون رو آپلود کنین.

[مرتضی تقدمی]

exit sub جزء کدها نبود حذفش کردم.

مشکل ایجاست:

شما فرض کنید که داخل اون فایل تکستمون نوشتیم:
abcd
1234

و با vbcrlf تجزیش کردیم.حالا وقتی حلقه شروع به کار میکنه. می آد برای مقدار ss که باید abcd باشه رو درست نشون میده اما طول این نوشته رو که باید 4 باشه رو 5 نشون میده !!!!!!!

من هم همونجا تست کردم مشکلی نداشت. احتمالا مشکل از خود فایل باشه. یا مثلا ممکنه یک space اول یا آخر خط باشه. نمی دونم. شاید اینطور باشه.