Variable Help!

Mindtrick · Post by **Mindtrick** » Wed Jan 24, 2007 10:32 pm

Hey!!

I am using the following code but it says I can't write a string into a numerical value...

OpenPreferences("Projects/Language1.lng")
line=ReadPreferenceString("Translator", "")
SetGadgetText(6, line)
ClosePreferences()

What is actually wrong with it?!

Many Regards
Mindtrick :roll:

ts-soft · Post by **ts-soft** » Wed Jan 24, 2007 10:34 pm

change line to line.s or line$

Mindtrick · Post by **Mindtrick** » Wed Jan 24, 2007 10:36 pm

Thanks a lot

Question 2:

Is there anyway to read the whole preferences file and display it all?

Regards
Mindtrick

ts-soft · Post by **ts-soft** » Wed Jan 24, 2007 11:12 pm

Code: Select all

Procedure DebugPreferences(File.s)
  Protected FileID.l = ReadFile(#PB_Any, File)
  
  If FileID
    
    While Not Eof(FileID)
      Debug ReadString(FileID)
    Wend
    
    CloseFile(FileID)
  EndIf
EndProcedure

DebugPreferences(#PB_Compiler_Home + "PureBasic.prefs")

Mindtrick · Post by **Mindtrick** » Wed Jan 24, 2007 11:25 pm

Great!

How would I display it in an editor gadget?

Many Regards
Mindtrick

ts-soft · Post by **ts-soft** » Wed Jan 24, 2007 11:54 pm

Change Debug ReadString(FileID) to: AddGadgetItem(#EDIT, #PB_Any, ReadString(FileID))
and please, show the examples and help

Trond · Post by **Trond** » Thu Jan 25, 2007 11:08 am

This is the fastest way to display it in a EditorGadget:

Code: Select all

ReadFile(0, "c:\test.asm")
Memory = AllocateMemory(Lof(0)+2)
ReadData(0, Memory, Lof(0))
*S.String = @Memory
SetGadgetText(#EditorGadget, *S\s)
FreeMemory(Memory)

Mindtrick · Post by **Mindtrick** » Thu Jan 25, 2007 4:51 pm

ts-soft wrote:Change Debug ReadString(FileID) to: AddGadgetItem(#EDIT, #PB_Any, ReadString(FileID))
and please, show the examples and help

Fantastic!

Thank you ever so much for being a great help

Finally.

I have the following code but how do I make it so when I click on a menu it does it aswell as the gadget?

Code: Select all

  Repeat
    EventID = WaitWindowEvent()
    
    If EventID = #PB_Event_Gadget

      Select EventGadget()
      
        Case 5
          
          
        Case 20
        
        filename$ = SaveFileRequester("Save", "", "Language Pack Files|*.lng", 0)
         CreatePreferences(filename$+".lng")
          PreferenceGroup("Translation")
          WritePreferenceString("Translator", #Gadget_Author)
          WritePreferenceString("Language", #Gadget_Language)
          WritePreferenceString("E-Mail", #Gadget_EMail)
          WritePreferenceString("Date Created", #Gadget_Date)
          WritePreferenceString("Program Name", #Gadget_ProgramName)
          WritePreferenceString("Additional Information", #Gadget_AddInfo)
          PreferenceGroup("Menu")
          WritePreferenceString(#Gadget_Word1, #Gadget_Word2)
         ClosePreferences()
         
          
      EndSelect
   EndIf

  Until EventID = #PB_Event_CloseWindow

Cheers!
Mindtrick