Visual Basic

Public Declare Function spssGetVarNValueLabels Lib "spssio32.dll" Alias "spssGetVarNValueLabels@20" (ByVal handle As Integer, ByVal varName As String, ByRef values() As Double, ByVal labels() As String, ByRef numofLabels As Integer) As Integer

Dim handle As Integer = 0
Dim varname As String = "subject"
Dim numvallabs As Integer
Dim values(10) As Double
Dim labels(10) As String

erro = spssGetVarNValueLabels(handle, varname, values, labels, numvallabs)

#include <stdio.h>
#include "spssdio.h"
void func()
{
int fH; /* file handle */
int error; /* error code */
int numL; /* number of values or labels */
double *nValuesL; /* values */
char **labelsL; /* labels */
...
error = spssOpenRead("bank.sav", &fH);
...
/* Get and print value labels for numeric variable SEX */
error = spssGetVarNValueLabels(fH, "SEX",
&nValuesL, &labelsL, &numL);
if (error == SPSS_OK)
{
int i;
printf("Value labels for SEX\n");
for (i = 0; i < numL; ++i)
{
printf("Value: %g, Label: %s\n", valuesL[i], labelsL[i]);
}
/* Free the values & labels */
spssFreeVarNValueLabels(nValuesL, labelsL, numL);
}
}</stdio.h>

Sub HTML2RTF(ByVal oWord As Microsoft.Office.Interop.Word.Application, ByVal sHTMLFileName As String)
  Const wdStory = 6
  Const wdLine = 5
  Const wdExtend = 1
  Const wdCharacter = 1
  Const wdFormatRTF = 6
  With oWord
    .Documents.Open(FileName:=sHTMLFileName)
    .Selection.EndKey(Unit:=wdStory)
    .Selection.MoveUp(Unit:=wdLine, Count:=2, Extend:=wdExtend)
    .Selection.EndKey(Unit:=wdLine, Extend:=wdExtend)
    .Selection.Delete(Unit:=wdCharacter, Count:=1)
    Dim fi As New IO.FileInfo(sHTMLFileName)
    Dim sRTFFileName As String = fi.FullName.Substring(0, fi.FullName.Length - fi.Extension.Length) & ".rtf"
    .ActiveDocument.SaveAs(FileName:=sRTFFileName, FileFormat:=wdFormatRTF)
    .ActiveWindow.Close()
  End With
End Sub