Lave en streng om til en variabel

Msgbox s_2 & S-1

Msgbox s_2 & S_2

s_2 = "Virker det ???" & s_1

shi. its not going so well today

Msgbox s_2 & S_1

Or

Msgbox s_2 & & " " & S-1

!!!
We are getting there!

Msgbox s_2 & " " & S-1

Dim s_1 As String
Dim s_2 As String

s_1 = "Ja"
s_2 = "Virker det ?? " & s_1 ' i den rigtige kode vil s_2 blive indlæst fra en fil


MsgBox s_2

Du skal have s_1-variablen uden for approstrofferne...

Ja det med at s_1 skal være uden for quotes ved jeg godt.

Jeg laver lige et nyt eks så i kan se hvad jeg mener.

Dim s_1 As String
Dim s_2 As String
Dim ls_error
s_1 = "Ja"

s_2 = iniFile.GetProfileString("test.ini", "test", "s_1", "", ls_error)


MsgBox s_2

' code til inifil.bas
Option Explicit

Private Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpDefault As String, _
    ByVal lpReturnedString As String, _
    ByVal nSize As Long, _
    ByVal lpFileName As String) As Long
   
   
   
   


Public Function GetProfileString(ByRef iniFile As String, ByVal section As String, ByVal key As String, ByVal default As String, ByVal error As String)

Dim r As Long
Dim ret As String



ret = Space$(32)
r = GetPrivateProfileString(section, key, default, ret, Len(ret), iniFile)

ret = Left$(ret, r)

If ret = error Then
    MsgBox ("Fejl i " & iniFile & vbCrLf & "I sectionen " & section & " blev key " & key & " ikke fundet.")
End If

GetProfileString = ret

End Function

' dette skal stå i inifilen
[test]
s_1 = Virker det ?? & s_1

' resultatet af msgbox skal nu være: Virker det ?? Ja

Håber det var en lidt bedre formulering

s_2 = iniFile.GetProfileString("test.ini", "test", s_1, "", ls_error)

Proaccess: Hvad får du når du prøver det ??

Jeg har IKKE afprøvet det, men i stedet for at sende værdien "Ja" så sender du tekst-strengen "s_1" til funktionen...

Altså kalder du funktionen med:
  .GetProfileString("test.ini", "test", "s_1", "", Is_error)
hvor jeg mener det skulle være:
  .GetProfileString("test.ini", "test", "Ja", "", Is_error)
hvor "Ja" er indsat fra variablen s_1...

ALTSÅ:
"s_1" er en tekstreng med værdien "s_1"
s_1 er en variabel (af typen tekst) med værdien "Ja"

Det jeg skal lave er at printe nogle etiketter.
Data sendes til printeren serielt som én (1)  streng.

På etiketten skal der bla. stå et kundenavn en prodtype og en vægt
layoutet på etiketterne skal kunne ændres uden at lave om i programkoden.

eks:

s_cust = getcust() ' find kunde fra db
s_weight = getweight() ' hent vægt fra com2
s_prod = getprod()' hent produktnavn fra db

i inifilen skal der så stå
*x10y50#Kunde:& s_cust#*x10y100#Vægt: & s_weight#

min variabel (s_2) skal nu have værdien:
*x10y50#Kunde: KundeABC #*x10y100#Vægt: 200#


jeg kunne selv bruge nogle replace funktoner men det vil jeg helst være fri for.

koder:
* = ny komando
x10y50 = start position for print
# = ny text
# = afsl af text

Fik du løst dette, og kan vi få lukket spørgsmålet?

Ikke løst, måtte bruge replace funktioner.