{"id":2526,"date":"2015-02-12T21:52:39","date_gmt":"2015-02-12T19:52:39","guid":{"rendered":"http:\/\/www.extradrm.com\/?p=2526"},"modified":"2015-02-12T22:12:43","modified_gmt":"2015-02-12T20:12:43","slug":"visual-basic-6-mini-guide-for-developpers","status":"publish","type":"post","link":"https:\/\/www.extradrm.com\/?p=2526","title":{"rendered":"Visual Basic 6 : some useful functions"},"content":{"rendered":"

VB 6 introduced a trio of powerful functions that operate on string arrays<\/strong>. These functions save the coding effort of having to set up loops and using combinations of other basic string functions to perform the equivalent tasks.<\/p>\n

Split(<\/b>expression<\/i>[,<\/b> delimiter<\/i>[,<\/b> count<\/i>[,<\/b> compare<\/i>]]])
\nJoin(<\/b>list<\/i>[, delimiter<\/i>])<\/b>
\nFilter(<\/b>InputStrings<\/i>,<\/b> Value<\/i>[,<\/b> Include<\/i>[,<\/b> Compare<\/i>]])<\/b><\/p>\n

Here are two visual basic 6<\/strong> programs for reading and writing files with visual basic sequential file :<\/p>\n

Sub Extraction_PhotosMiningSplit()
\nOn Error GoTo Err_Extraction_PhotosMiningSplit_Click<\/p>\n

Dim i As Integer
\nDim ISN As String
\nDim ligne As String<\/p>\n

filein = “C:\\phototeque\\photodoc.txt”<\/p>\n

ISN = “”
\nClose #1
\nClose #2<\/p>\n

Dim partie1 As Integer<\/p>\n

partie1 = 0<\/p>\n

Open filein For Input As 1
\nOpen “c:\\phototeque\\split_class2.txt” For Output As #2<\/p>\n

MsgBox “Reading\u00a0 Photos file line by line … ”<\/p>\n

Do While Not EOF(1)
\nLine Input #1, ligne<\/p>\n

If InStr(1, ligne, “$DOC_ISN”) <> 0 Then
\nLine Input #1, ligne
\n‘Print #2, ligne;
\n‘Print #2, Chr$(9);
\nISN = ligne
\nGoTo Suite
\nEnd If<\/p>\n

‘$DOC_CLASS2
\n‘CIMETIERE$SEP$<\/strong>POTERIE$SEP$<\/strong>VILLE<\/p>\n

If InStr(1, ligne, “$DOC_CLASS2”) <> 0 Then
\nLine Input #1, ligne
\n‘Print #2, ligne;
\n‘Print #2, Chr$(9)<\/p>\n

astrSplitItems = Split(ligne, “$SEP$”)<\/p>\n

For intX = 0 To UBound(astrSplitItems)<\/p>\n

Print #2, ISN;
\nPrint #2, Chr$(9); ‘tab char code
\nPrint #2, astrSplitItems(intX)<\/p>\n

Next<\/p>\n

partie1 = 1
\nGoTo Suite
\nEnd If<\/p>\n

If InStr(1, ligne, “\/\/FINENREG”) <> 0 Then<\/p>\n

If partie1 = 0 Then
\nPrint #2, Chr$(9)
\nElse
\npartie1 = 0
\nEnd If<\/p>\n

GoTo Suite<\/p>\n

End If<\/p>\n

Suite:
\nLoop<\/p>\n

Close #1
\nClose #2
\n‘Kill fileout<\/p>\n

‘Name “c:\\tempbr.tmp” As fileout<\/p>\n

MsgBox “End Mining des Photos … ”<\/p>\n

Exit_Extraction_PhotosMiningSplit_Click:
\nExit Sub<\/p>\n

Err_Extraction_PhotosMiningSplit_Click:
\nMsgBox Err.Description
\nResume Exit_Extraction_PhotosMiningSplit_Click<\/p>\n

End Sub<\/p>\n

======== SolR Data generated by VB6 sample ==========<\/p>\n

Sub Extraction_PhotoSolr()
\nOn Error GoTo Err_Extraction_PhotoSolr_Click<\/p>\n

Dim ligne As String
\nfilein = “C:\\phototeque\\photos_doc.txt”<\/p>\n

Close #1
\nClose #2
\nDim id_isn As Double
\nDim partie As Integer<\/p>\n

Open filein For Input As 1
\nOpen “c:\\phototeque\\indexdata_solr.txt” For Output As #2<\/p>\n

‘objFile.WriteLine “<? xml version = ” & Chr(34) & “1.0” & Chr(34) & _
\n‘\u00a0\u00a0 ” encoding = ” & Chr(34) & “UTF-8″ & Chr(34) & ” ?>”<\/p>\n

‘ Chr(34) code char des double quote<\/p>\n

MsgBox “Extraction des Photos … ”<\/p>\n

Do While Not EOF(1)
\nLine Input #1, ligne<\/p>\n

If InStr(1, ligne, “$DOC_DP”) <> 0 Then<\/p>\n

Line Input #1, ligne
\nPrint #2, “<field name=” & Chr(34) & “typeres” & Chr(34) & “>”;
\nPrint #2, ligne;
\nPrint #2, “<\/field>”
\nGoTo Suite
\nEnd If<\/p>\n

If InStr(1, ligne, “$DOC_ISN”) <> 0 Then<\/p>\n

Line Input #1, ligne
\nPrint #2, “<field name=” & Chr(34) & “id” & Chr(34) & “>”;
\nPrint #2, ligne;
\nPrint #2, “<\/field>”
\nGoTo Suite
\nEnd If<\/p>\n

If InStr(1, ligne, “$DOC_TITRE”) <> 0 Then<\/p>\n

Line Input #1, ligne
\nPrint #2, “<field name=” & Chr(34) & “titre” & Chr(34) & “>”;
\nPrint #2, ligne;
\nPrint #2, “<\/field>”
\nGoTo Suite
\nEnd If<\/p>\n

If InStr(1, ligne, “$DOC_NUMINVENT”) <> 0 Then<\/p>\n

Line Input #1, ligne
\nPrint #2, “<field name=” & Chr(34) & “idimg” & Chr(34) & “>”;
\nPrint #2, ligne;
\nPrint #2, “<\/field>”
\nGoTo Suite
\nEnd If<\/p>\n

If InStr(1, ligne, “\/\/FINENREG”) <> 0 Then<\/p>\n

‘ end of record tag<\/p>\n

Print #2, “<\/add>”
\nPrint #2, “<\/doc>”<\/p>\n

Print #2, “<add>”
\nPrint #2, “<doc>”<\/p>\n

GoTo Suite<\/p>\n

End If<\/p>\n

Suite:
\nLoop<\/p>\n

Close #1
\nClose #2
\n‘Kill fileout
\n‘Name “c:\\tempbr.tmp” As fileout<\/p>\n

MsgBox “Fin Extraction index SolR Photos … ”<\/p>\n

Exit_Extraction_PhotoSolr_Click:
\nExit Sub<\/p>\n

Err_Extraction_PhotoSolr_Click:
\nMsgBox Err.Description
\nResume Exit_Extraction_PhotoSolr_Click<\/p>\n

End Sub<\/p>\n

 <\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

VB 6 introduced a trio of powerful functions that operate on string arrays. These functions save the coding effort of having to set up loops and using combinations of other basic string functions to...<\/p>\n","protected":false},"author":1,"featured_media":2846,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[283,294],"tags":[333],"youtube_video":null,"_links":{"self":[{"href":"https:\/\/www.extradrm.com\/index.php?rest_route=\/wp\/v2\/posts\/2526"}],"collection":[{"href":"https:\/\/www.extradrm.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.extradrm.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.extradrm.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.extradrm.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2526"}],"version-history":[{"count":0,"href":"https:\/\/www.extradrm.com\/index.php?rest_route=\/wp\/v2\/posts\/2526\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.extradrm.com\/index.php?rest_route=\/wp\/v2\/media\/2846"}],"wp:attachment":[{"href":"https:\/\/www.extradrm.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2526"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.extradrm.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2526"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.extradrm.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2526"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}