വിഷ്വൽ ബേസിക്കിൽ save for and open Text ,String

വിഷ്വൽ ബേസിക്കിൽ save for and open Text ,String

ഫോമിലേക്ക് ഒരു Text box ഇടുക മാത്രം ചെയ്യുക.ഇനി കോഡ് ലേക്ക് പോവാം നിങ്ങൾ താഴെ കാണുന്ന കോഡ് എഴുതുകയോ കോപി
ചെയ്ത് പേസ്റ്റ് ചെയുകയോ ചെയുക.




Private Sub Form_Load()
Open App.Path + "/mytext.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open App.Path + "/mytext.txt" For Output As #1
Print #1, Text1.Text
Close 1
End Sub

ഇത് റൺ ചെയ്യുൻബോൽ error കാണിച്ചാൽ താഴെ കാണുന്ന കോഡ് കൊടുത്ത് ഒരു പ്രാവസ്യം റൺ ചെയ്ത് പിന്നെ ഡിലീറ്റ് ചെയ്ത് മുകളിലെ കോഡ് എഴുതി റൺ ചെയ്യുക.



Private Sub Form_Load()
Open App.Path + "/mytext.txt" For Output As #1
Print #1, Text1.Text
Close 1
End Sub

ഇനി നിങ്ങൾ റൺ ചെയുക എന്നിട്ട് Text box നിങ്ങൾ എന്തെങ്കിലും എഴുതുക എന്നിട്ട് ക്ലോസ് ചെയ്ത് വീണ്ടുംറൺ ചെയുക അപോൾ നിങ്ങൾ എഴുതിയത് Text box ഡിസ്പ്ലെ ചെയുംവീണ്ടും നിങ്ങൾ എഴുതിയാലും ഇത് ഒരു റ്റെക്റ്റ് ഫയൽ ആയി App.Path ൽ സെവ് ചെയുന്നു.App.Path പകരം " c:/mytext.txt" എന്നാകിയാൽ ഫിയൽ disk c യിൽ സെവ് ചെയ്യും.ആ പേരിൽ നിലവിൽ ഫയൽ ഇല്ലങ്കിൽ പുതിയ ഫയൽ സെവ് ചെയ്യും .
For Input ഇത് ഫയൽ തുറന്ന് [open and records read only ] Text box , String എന്നിവയിലേക്ക് ഫയലിലെ റ്റെക്റ്റ് പകർത്താൻ കഴിയുന്നു Close 1 തുറന്നത് ക്ലോസ്സ് ചെയ്യുന്നു.
For Output ഇത് ഫയൽ തുറന്ന് [open and created new records write only ] Text box , String എന്നിവയിൽ ഉള്ള റ്റെക്റ്റ്
ഫയൽ നിലവിലുള്ള റ്റെക്റ്റ് ഒഴിവാകി പുതിയതായി സെവ് ചെയ്യാൻ കഴിയുന്നു. Close 1 തുറന്നത് ക്ലോസ്സ് ചെയ്യുന്നു.
For Random: ഇത് ഫയൽ തുറന്ന് റ്റെക്റ്റ് പകർത്താനും സെവ് ചെയ്യാനു കയിഴുന്നു [open write and read in specific record ]
Open App.Path + "/mytext.txt" For Random As #1 Len = 50
Get #1, recordss number, String
put #1, recordss number, String
for Append നിലവിലുള്ള ഫയലിലേക്ക് പുതിയതായി റ്റെക്സ് സേവ് ചെയ്യുന്നു നിലവിലുള്ള ഫയലിലെ റ്റെക്സ് നിലനിർത്തി.
for Binary: ഇത് ഫയൽ തുറന്ന് റ്റെക്റ്റ് [ byte level] പകർത്താനും സെവ് ചെയ്യാനു കയിഴുന്നു [open write and read at byte level]




നിങ്ങളുടെ അഭിപ്രായം എഴുതൂ....? കൂടെ സംശയങ്ങളും . ..തിരുത്തുകളും .


തുടരും....

വിഷ്വൽ ബേസിക്കിൽ രജിസ്റ്ററി കീ

വിഷ്വൽ ബേസിക്കിൽ രജിസ്റ്ററി കീ നിർമ്മിക്കുന്നത് എങ്ങിനെ എന്ന് നോക്കാം

നമൂക്ക് കീ നിർമിക്കാൻ SaveSetting എന്നും ആ വില എടുക്കാൻ GetSetting ഉപയോഗിക്കാം
ആദ്യമായ് നമ്മുക്ക് ഒരു പ്രൊജെക്റ്റ് ചെയ്ത് നോക്കാം എന്നിട്ട് അതിനെ പറ്റി പരിശോദിക്കാംഒരു പുതിയ പ്രൊജെക്റ്റ് തുടങ്ങുക . ഫോമിലേക്ക് ഒരു Text box ഇടുക മാത്രം ചെയ്യുക.ഇനി കോഡ് ലേക്ക് പോവാം നിങ്ങൾ താഴെ കാണുന്ന കോഡ് എഴുതുകയോ കോപി ചെയ്ത് പേസ്റ്റ് ചെയുകയോ ചെയുക.
Dim blogmalayalam As String
Private Sub Form_Load()
blogmalayalam = GetSetting(App.Title, "Settings", "blogmalayalam", "No value")
Text1.text = blogmalayalam
End Sub
Private Sub Form_Unload(Cancel As Integer)
blogmalayalam = Text1.text
SaveSetting App.Title, "Settings", "blogmalayalam", blogmalayalam
End Sub

ഇനി നിങ്ങൾ റൺ ചെയ്താൾ Text box ൽ No value എന്ന് കിട്ടും ഇനി Text box നിങ്ങൾ എന്തെങ്കിലും എഴുതുക എന്നിട്ട് ക്ലോസ് ചെയ്ത് വീണ്ടുംറൺ ചെയുക അപോൾ നിങ്ങൾ എഴുതിയത് Text box ഡിസ്പ്ലെ ചെയുംവീണ്ടും നിങ്ങൾ എഴുതിയാലും അത് റെജിസ്റ്റെറിയിൾ കീ ആയി സെവ് ചെയ്യും
SaveSetting(AppName As String, Section As String, Key As String, Setting As String)

GetSetting(AppName As String, Section As String, Key As String, [Default]) As

String

ഇത് എവിടെയാന്ന് സേവ് ചെയ്തത് കാണാൻ start clike ചെയ്ത് അതിൽ കാണുന്ന Run ക്ലിക്ക് ചെയ്ത് regedit എന്ന് ട്ടൈപ്പ് ചെയുക ok ക്ലിക്ക് ചെയ്ത് താഴെ കാണുന്നവ സെലെക്റ്റ് ചെയ്താൽ അവസാനം വരുന്ന കോളത്തി കാണാം.
KEY_CURRENT_USER\Software\VB and VBA Program Settings\Project1\Settings
രജിസ്റ്ററി കീ നിങ്ങൾക്ക് പാസ് വേർഡ് എന്നീ പ്രദാനപെട്ട പലതും നിങ്ങൾക്ക് ഉപയോഗിക്കാം.മറ്റു ഉപയോഗങ്ങൾനിങ്ങൾക്ക് തന്നെ ചെയ്ത് നോക്കുക.
ഇനി നിങ്ങൾ ക്ക് കൂടുതൽ മനസിലാക്കാൻ വേണ്ടി ഇതാ തഴെ കൊടുത്തത് നേരത്തെ കൊടുത്ത കോഡിന്ന് പകരംകൊടുത്ത് നോക്കുക .ഇതിൽ രജിസ്റ്ററിൽ പേര് A ആകുന്നു കീ പേരുകൽ എന്നിവ മാറുന്നു പ്രെവർത്തണം മുകളിൽ കൊടുത്ത മാതിരി തന്നെ. ഇത് നിങ്ങാൾക്ക് മനസിലാക്കാം എളുപ്പാമാവും എന്ന് കരുതുന്നു.

Private Sub Form_Load()
Text1.Text = GetSetting("A", "B", "C", "")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "A", "B", "C", Text1.Text
End Sub





നിങ്ങളുടെ അഭിപ്രായം എഴുതൂ....? കൂടെ സംശയങ്ങളും . ..തിരുത്തുകളും എല്ലാം.


തുടരും.........