Что нового

Excel копирование строк

Михаил

Новичок
Сообщения
20
Репутация
0
Версия AutoIt: 3.

Описание:

Примечания:
Здравствуйте, столкнулся с проблемой - необходимо разделить строки с IP В EXCEL а именно, имеется файл строки которого содержат например:
Васильев Василий Васильевич 10.88.50.1 10.88.50.2 10.88.50.3, нужно создать другой файл в котором та же строка разделится на 3 строки:
Васильев Василий Васильевич 10.88.50.1
Васильев Василий Васильевич 10.88.50.2
Васильев Василий Васильевич 10.88.50.3

Вот то что я написал :

Код:
$sFilePath1 = "C:\Documents and Settings\Михаил\Рабочий стол\test.xlsx" 
$sFilePath2 = "C:\Documents and Settings\Михаил\Рабочий стол\result.xls"
$oExcel = _ExcelBookOpen($sFilePath1)
$nExcel = _ExcelBookOpen($sFilePath2)
$aArray = _ExcelReadSheetToArray($oExcel)
MsgBox(0, "", "2" & @CRLF & $aArray, 100)
For $i = 1 To 6 ;Loop
	$sCellValue = _ExcelReadCell($oExcel, $i+1,8)
	
    If StringLeft($sCellValue, 1)  Then
	$sCellValue = StringStripWS($sCellValue,3)
	;$sCellValue =StringStripWS(StringTrimLeft($sCellValue, 0), 0)
	$Pos = StringInStr($sCellValue,' ')
	$Data2 = StringLeft($sCellValue, $Pos - 1)
	$sCellVal
	ue =StringStripWS(StringTrimLeft($sCellValue, $pos), 0)
	$Data3 = StringStripWS(StringLeft($sCellValue, $Pos - 1), 2)
	$Data4 = StringStripWS(StringTrimLeft($sCellValue, $Pos), 1)

endif
next

IP Находится в 8 столбце , у меня получается разделить строку на подстроки только если запись представляет из себя :10.88.80.25 10.88.34.34
если ячейка содержит просто 10.88.80.25 выдается пустое значение видимо потому что отнимается от самого себя. Помогите дописать или сформировать заново изложенную мной идею, заранее примногоблагодарен.
 

Redline

AutoIT Гуру
Сообщения
506
Репутация
375
Насколько я понял ячейка содержит только IP адреса без ФИО? Тогда так:
Код:
$a = StringSplit('10.88.15.16 10.88.16.11', ' ')
For $i = 1 To UBound($a) - 1
    ConsoleWrite($a[$i] & @CRLF)
Next


PS: используй тэг AUTOIT для вставки кода
 

RUVATA

лучше один раз увидеть, чем десять раз услышать...
Сообщения
132
Репутация
38
AutoIT - принципиально, или VBA макрос тоже подойдет ?
 

RUVATA

лучше один раз увидеть, чем десять раз услышать...
Сообщения
132
Репутация
38
Михаил,
пример файла в студию !!!
 
Верх