كار با خطوط جعبه متن

[parselearn]

با سلام
من مي خوام اطلاعات جعبه متني رو در يك فايل ذخيره كنم
اما مشكل اينجاست كه بايد قبل از هر خطي يك كلمه به همراه يك عدد متفاوت قرار بگيره


For i = 0 To 10
Print #intfilenumber, "line" + CStr(i) + "=" + txtAll.Text
Next

چطوري مي تونم تك تك خطوط رو اطلاعاتش رو در بيارم و با استفاده از يك حلقه آنها رو ذخيره كنم

يك سوال ديگه: چطوري بفهميم جعبه متن چند خط داره

[اوبالیت به بو]

من مي خوام اطلاعات جعبه متني رو در يك فايل ذخيره كنم

چطوري مي تونم تك تك خطوط رو اطلاعاتش رو در بيارم و با استفاده از يك حلقه آنها رو ذخيره كنم
من هيچ راهي جز اين پيدا نكردم:
اطلاعات رو درون يك فايل متني ذخيره كنيم. يعني:


FileName = "C:\Test.txt"
FileNumber = FreeFile()
strText = ""
strText = Text1.Text
Open FileName For Output As FileNumber
Print #FileNumber, strText
Close #FileNumber

و دوباره اون فايل رو باز كنيم و خط به خط بخونيمش. يعني:


FileName = "C:\Test.txt"
FileNumber = FreeFile()
Open FileName For Input As FileNumber
While Not (EOF(FileNumber))
Input #FileNumber, strBuffer
strInput = strInput & strBuffer & vbCrLf
Counter = Counter + 1
Wend
Close #FileNumber
MsgBox (strInput)
MsgBox (Counter)


چطوري بفهميم جعبه متن چند خط داره
منم نمي دونم و نتونستم بفهمم.

اما مشكل اينجاست كه بايد قبل از هر خطي يك كلمه به همراه يك عدد متفاوت قرار بگيره
اگر پاسخ اين سوال داده بشه اين مشكل شما حل ميشه. يعني مي تونيد بفهميد كه TextBox شما چند خط داره.

[xxxxx_xxxxx]

چطوري بفهميم جعبه متن چند خط داره


For i = 1 To Len(txt.Text)
If Mid(txt.Text, i, 2) = vbCrLf Then CNT = CNT + 1
Next i
همونطور كه مي دونيد Enter از دو كد 10 و 13 تشكيل شده. براي همين vbCrLf رو با دو كاراكتر مقايسه مي كنيم.:چشمک:

موفق باشيد/

[vbhamed]

سلام
كل كاري كه شما مي خواين خيلي ساده انجام ميشه


Dim x() As String

x = Split(Text1, vbCrLf)

Open "c:\test.txt" For Output As #1

MsgBox "Totla Lines is : " & UBound(x)

Dim i%
For i = 0 To UBound(x)
Print #1, "Line" & CStr(i) & "=" & x(i)
Next

Close #1