Public Class 介護事業所マップ作成アプリ
private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button. Click
'***** (1)CSVからデータ読込用宣言 *****
Dim CSVFile1 As New IO. StreamReader(“G:¥介護保険サービス¥Mapping¥” & TextBox1. Text & “データ.csv”)
Dim LineData1 As String
Dim TempData1 (300) As String
Dim I As Integer
Dim term(300) As Integer
Dim manage(300) As Integer
Dim prevention(300) As Integer
Dim capacity (300) As Integer
Dim longitude(300) As Double
Dim latitude(300) As Double
'***** (2)境界情報データ読込用宣言 *****
Dim CSVFile2 As New IO. StreamReader(“G:¥介護保険サービス¥Mapping¥” & TextBox1. Text & “境界.csv”)
Dim LineData2 As String
Dim TempData2 (300) As String
Dim elong As Double
Dim wlong As Double
Dim nlati AsDouble
Dim slati As Double
回答1件
あなたの回答
tips
プレビュー