VB - hapja e skedareve

[KinG_MousE]

Dua qe ne nje file teksti psh "c:\prove.txt" tekstin qe eshte e shkruajtur atje ta hap ne nje text box. Please me jepni pergjigjen sa me shpejte.

[Wordless]

Tani varet nga vesioni i VB qe ke. Kjo sintakse qe po te jap vlen per VB5 dhe VB6.


Dim strText, strNextLn As String
....

Open "C:\prove.txt" for input As #1
...

Do Until EOF(#1)
Line Input #1, strNextLn
strText = strText + strNextLn + Chr(13) + Chr(10)
Loop

....
ose mund te perdoresh kete variantin me te shkurter

strText = Input(LOF(#1), #1)

.....

ne fund strText ka si vlere permbajtjen e c:\prove.txt te cilen
per ta afishuar ne nje text box mjaftaon t'ja afektesh
vetis Text (psh nqs e ke emeruar myTextbox atehere
sintaksa eshte myTextbox.Text = strText)

Per te qene me e plote duhet te parashikosh rastet e veçanta (file qe nuk egziston, numer file i zene, etj).


Mos harro qe ta mbyllesh ne fun kur te kesh mbaruar pune

Close #1

[KinG_MousE]

VB6 kam une por nuk jemi kuptuar mire une dua qe nje fjale qe kam shkrujatur une ne rrejeshtin e pare te psh "c:\prove.txt" kur une te shtyp psh. command2 teksti qe kam shkruajtur une te prove.txt ne rrejsht te pare te dali te text2

Please me jep kodin e plote nqs ke mundesi

[hiedi]

O KING MOUS ti don qe ta hapesh ne nje text box tjeter apo ne ate te parin

[KinG_MousE]

ja ta shpjegoj une me mire. Une kam krijuar nje textbox dhe ne ate textbox dua qe te nxjeri ato qe kam shkruajtur une ne nje file text.

[regli]

kodi eshte:
do hapesh dy textbox
text1 dhe text2
do vendosesh nje command sub
do klikosh dy here qe te futesh ne code mode dhe:
do shkruash

command1_sub click()
dim a as string
dim b as string
a=cstr(text1.text)
b=a
text2.text=cstr(a)
end sub

[KinG_MousE]

Jo mer jo as ti nuk e kuptove une nuk dua qe ajo qe eshte e shkruajtur te text1.text te dali dhe te text2.text por qe nga nje file texti psh c:\prova.txt qe eshte bere me notepad te dali te text1.text po lere se tani e kam gjetur , por me ka dal nje problem tjeter. Si eshte komanda per te printuar nje faqe

[mySteRioUs]

1. Hap nje projekt te ri.
2. Shko tek: Project > References
3. Tick (zgjidh): Microsoft Scripting Runtime
4. Krijo nje TextBox me emer: Text1
5. Krijo nje buton me emer: Button1
6. Double click tek butoni edhe shkruaj:

Dim objFSO As New FileSystemObject

Set TStream = objFSO.OpenTextFile("C:\test.txt", ForReading)

'per te lexuar te gjithe tekstin
fileText = TStream.ReadAll

Text1.Text = fileText

----------
Run dhe kliko butonin. Teksti tek test.txt do te jete tek textbox

Ja kaq ishte


Cheers
mySteRioUs

[KinG_MousE]

po per te printuar si mund ta bej

[mySteRioUs]

KinG_MousE,

shprehu pak me qarte, cfare do te printosh?? Ne qofte se do te printosh tekstin qe e ke text fields perdor "Data Report Control".

cheers,
mySteRioUS