WARNING: You're viewing the older Rhino 5 version of this page! View the Rhino 6 version instead.

Import Text from File

Demonstrates how to import text from a file using RhinoScript.


Sub ImportText

  Const ForReading = 1
  Dim strFile, strText
  Dim objFSO, objFile
  Dim arrOrigin

  strFile = Rhino.OpenFileName("Open", "Text Files (*.txt)|*.txt|")
  If IsNull(strFile) Then Exit Sub

  arrOrigin = Rhino.GetPoint("Start point")
  If Not IsArray(arrOrigin) Then Exit Sub

  Set objFSO = CreateObject("Scripting.FileSystemObject")

  On Error Resume Next
  Set objFile = objFSO.OpenTextFile(strFile, ForReading)
  If Err Then
    MsgBox Err.Description
    Exit Sub
  End If

  While Not objFile.AtEndOfStream
    strText = strText & objFile.ReadLine
    If Not objFile.AtEndOfStream Then
      strText = strText & VbCrLf
    End If


  Set objFile = Nothing
  Set objFSO = Nothing

  If Len(strText) > 0 Then
    Rhino.AddText strText, arrOrigin
  End If

End Sub