pravim text editor u VB... ali je malo zapelo :-(

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

pravim text editor. kako da uradim da u VB-u cita fajl (text dokument) kada se pozove iz windows-a... recimo iz windows explorera.

znaci kad pozovem neki fajl sa recimo .txt extenzijom on otvara program ali ne cita fajl. kako da to izvedem?

nadam se da me razumete...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

moras da prosledis svom programu ime fajla kao argument -> 'notepad.exe fajl.txt' e a kako da ti iz svog programa procitas ime tog fajla to vec ne znam pogledacu

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Na kartici - Project VB-a otvori References, i zakaci: Microsoft Scripting Runtime.
Na formu postavi jedan CommandButton i jedan RichTextBox.
Recimo da na disku c:\ imas txt file pod imenom "Sove".
Ovaj kod ce ti klikom na dugme u RichTextBox1 ispisati sadrzaj "Sove.txt"

code:

Private Sub Command1_Click()

Dim A As Scripting.FileSystemObject
Dim B As Scripting.TextStream

Set A = New Scripting.FileSystemObject
Set B = A.OpenTextFile("C:\Sove.txt", ForReading, False, TristateFalse)

RichTextBox1.Text = B.ReadAll

B.Close

Set A = Nothing
Set B = Nothing

End Sub

_____________________________________________
Sove

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ne ne. hocu asocijaciju na program koji pravim. znaci kada iz explorera pozovem file "sove.txt' da umestno netepad-a ukljuci moj program i da prikaze tekst.

nadam se da je sada jasnije

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ja sam i pomislio da je to u pitanju pa ne htedoh nista reci, ali sam pogresio... imam ja negde na disku kako se to radi pa ako imas vremena ili ako me neko ne preduhitri ja cu potraziti pa ti dati nije problem... samo da nadjem...

btw imam za VB.NET ako moze da pomogne

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

evo nasao sam...
nisam siguran da li radi posto nisam probao mada ne verujem da ne radi... znao sam da ima neke veze sa Registry bazom, ali ne znam tacno gde treba da se stavi... no evo kod:

'############################################

Declare Function RegCreateKey Lib "advapi32.dll" Alias _
"RegCreateKeyA" (ByVal hKey As Long, _
ByVal lpszSubKey As String, _
lphKey As Long) As Long

Declare Function RegSetValue Lib "advapi32.dll" Alias _
"RegSetValueA" (ByVal hKey As Long, _
ByVal lpszSubKey As String, _
ByVal fdwType As Long, _
ByVal lpszValue As String, _
ByVal dwLength As Long) As Long

' Return codes from Registration functions.
Public Const ERROR_SUCCESS = 0&
Public Const ERROR_BADDB = 1&
Public Const ERROR_BADKEY = 2&
Public Const ERROR_CANTOPEN = 3&
Public Const ERROR_CANTREAD = 4&
Public Const ERROR_CANTWRITE = 5&
Public Const ERROR_OUTOFMEMORY = 6&
Public Const ERROR_INVALID_PARAMETER = 7&
Public Const ERROR_ACCESS_DENIED = 8&
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const MAX_PATH = 256&
Public Const REG_SZ = 1



'*----------------------------------------------------------*
'* Name : CreateAssociation *
'*----------------------------------------------------------*
'* Purpose : Associate a file type with a program in *
'* : Win95 and WinNT *
'*----------------------------------------------------------*
'* Parameters : strAppKey Required. File type alias. *
'* : strAppName Required. File type name. *
'* : strExt Required. File type extension. *
'* : strCommand Required. Command associated *
'* : with file type. *
'*----------------------------------------------------------*
Private Sub CreateAssociation(strAppKey As String, _
strAppName As String, _
strExt As String, _
strCommand As String)

Dim sKeyName As String ' Holds Key Name in registry.
Dim sKeyValue As String ' Holds Key Value in registry.
Dim ret As Long ' Holds error status if any from
' API calls.
Dim lphKey As Long ' Holds created key handle from
' RegCreateKey.

'Creates a Root entry called strKeyName.
sKeyName = strAppKey
sKeyValue = strAppName
ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
ret = RegSetValue(lphKey&, "", REG_SZ, sKeyValue, 0&)

'Creates a Root entry called strExt associated with strKeyName.
sKeyName = strExt
sKeyValue = strAppKey
ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
ret = RegSetValue(lphKey&, "", REG_SZ, sKeyValue, 0&)

'Sets the command line for strKeyName.
sKeyName = strAppKey
sKeyValue = strCommand
ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
ret = RegSetValue(lphKey&, "shell\open\command", REG_SZ, _
sKeyValue, MAX_PATH)
End Sub


ovo sve stavi u jedan fajl i kada pozivas uradi ovako...


Sub test_Association()
CreateAssociation "TestApp", "App for Assoc testing", ".pcd", _
"notepad.exe %1"
End Sub

znaces sta je sta posto pise i iznad procedure sta je... tako da je to to... javi da li radi...

sorry sto nisam bojio, ali me je mrzelo

pozdrav!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

hvala, probacu