'2006 Wilhelm Landerholm
'QUEUE/STATB - your partner in data analysis, data modeling and data mining.
'http://www.qsweden.com

'SAVE AS .SBS.


Sub Main

    Dim DataDoc As ISpssDataDoc, SyntaxDoc As ISpssSyntaxDoc
	Dim VarNames,VarLabels,VarTypes,VarLevels,LabelCounts As Variant
	Dim ValueLabelCounts,ValueLabels,Value As Variant
	Dim i,j,numVars,NumValueLabels As Long, S, Temp, Delimiter As String
	Dim Str1, StrVar, StrVal, Strcmd As String
	Set DataDoc = objSpssApp.Documents.GetDataDoc(0)
	numVars = DataDoc.GetVariableInfo(VarNames, VarLabels, VarTypes, VarLevels, LabelCounts)
	S = LCase(InputBox("Looking for....","Search"))
    If Len(Trim(S)) = 0 Then GoTo s1:
	If numVars = 0 Then GoTo s1:
	For i =0 To numVars-1
		  If InStr(LCase(VarNames(i)),S) > 0 Then StrVar = StrVar & VarNames(i) & vbCrLf
		  If InStr(LCase(VarLabels(i)),S) > 0 Then Str1 = Str1 & VarNames(i) & vbTab & VarLabels(i) & vbCrLf
		  NumValueLabels = DataDoc.GetVariableValueLabels (i, ValueLabelCounts, ValueLabels)
			  If NumValueLabels > 0 Then
					For j=0 To NumValueLabels-1
						If InStr(LCase(ValueLabels(j)),S) > 0 Then StrVal = StrVal & VarNames(i) & vbTab & j+1 & vbTab & ValueLabels(j) & vbCrLf
					Next j
			  End If
	Next i

	If Len(Str1) > 0 Then
	Str1 = S & ", in variabel labels: " & vbCrLf & "_________________________________" & vbCrLf  & Str1 & vbCrLf & vbCrLf
	End If

	If Len(StrVar) > 0 Then
	StrVar = S & ", in variabel name:" & vbCrLf & "_________________________________" & vbCrLf & StrVar & vbCrLf & vbCrLf
	End If

	If Len(StrVal) > 0 Then
	StrVal = S & ", is in value labels: " & vbCrLf & "_________________________________" & vbCrLf & StrVal & vbCrLf & vbCrLf
	End If

	Set SyntaxDoc = objSpssApp.NewSyntaxDoc
	SyntaxDoc.Visible = True
	SyntaxDoc.Text  =  StrVar & Str1 & StrVal

    Set SyntaxDoc = Nothing
s1:
    Set DataDoc = Nothing

End Sub